直接用find函数查找，然后赋值
Dim fdr As DataRow = DataTables("库存表").Find("规格型号 = '" & e.DataRow("规格型号") & "' and 供应商 = '" & e.DataRow("供应商") & "'")
If fdr IsNot Nothing Then
msgbox(fdr("报警阀指"))
End If
http://www.foxtable.com/help/topics/0396.htm
加好友 
发短信
Post By：2014/9/15 10:28:00 [显示全部帖子]
