主题：代码通不过

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