用find怎么不行呢?你试试这个代码.
Select Case e.DataCol.Name
Case "单位" ,"规格","批号","吨位","库位"
Dim dr As DataRow = e.DataRow
Dim Filter As String
Filter = "单位 = '" & dr("单位") & "' And 规格 ='" & dr("规格") & "' And 批号 ='" & dr("批号") & "' And 吨位='" & dr("吨位") & "'And 库位='" & dr("库位") &"'"
Dim dr1 As DataRow = DataTables("总库存").Find(Filter)
If dr1 Is Nothing Then
Dim r As DataRow = DataTables("总库存").AddNew()
dr1("单位") = r("单位")
dr1("规格") = r("规格")
dr1("批号") = r("批号")
dr1("吨位") = r("吨位")
dr1("库位") = r("库位")
End If
End If
End Select
[此贴子已经被作者于2012-3-12 20:47:30编辑过]