Dim dr1 As DataRow = dtDH.Find("代号 = '" & e.newValue & "'and 来源 = '"& E.DataRow("来源") &"' ")
代号 = e.newvalue 需要大小写也想同才行行
比如
With CurrentTable
Dim r As Integer
r = .Find("abc", 0, 0, False, False, True)
If r > - 1 Then '如果找到符合条件的行
dim 找到的行 as row = .rows(r)
msgbox(找到的行("第一列"))
End If
End With