主题：代码通不过

Find和Select是不同的：

Select Case e.DataCol.Name
     Case "施工单位","强度等级","浇筑方式","外加剂","级配","订单日期"
         Dim dr As DataRow = DataTables("价格表").Find("施工单位 = '" & e.DataRow("施工单位") & "' and 价格时限 < '" & e.DataRow("订单日期") & "'")
         If dr IsNot Nothing Then
              Dim nm As String = e.DataRow("强度等级") & "_" & e.DataRow("浇筑方式")
              Dim aa As String = "外加剂" & "_" & e.DataRow("外加剂")
              Dim bb As String = "级配" & "_" & e.DataRow("级配")
              If DataTables("价格表").DataCols.Contains(nm) And DataTables("价格表").DataCols.Contains(aa) And DataTables("价格表").DataCols.Contains(bb) Then
                  e.DataRow("价格") = val(dr(nm)) + val(dr(aa)) + val(dr(bb))
              End If
         End If
End Select

这种问题，要获得别人的帮助，只有上传数据表，输入测试数据，设置好代码，然后传上来，说明在什么表的什么事件，设置了什么代码，目的是什么，遇到的问题是什么。