以下代码，通过通用名取值是有问题的，因为通用名是有重复的。先搞清楚自己的逻辑
Select Case e.DataCol.name
Case "进货单号", "商品代码", "品名","通用名"
Dim nms() As String = {"品名","通用名","分类","规格型号","单价元","产地","注册证号","单位","备注"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("商品资料").Find("商品代码 = '" & e.newvalue & "' or 品名 = '" & e.newvalue & "' or 通用名 = '" & e.newvalue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End Select
加好友 
发短信
Post By：2018/5/8 22:11:00 [显示全部帖子]
