以下是通过附表,DataColChanged事件代码设置,其通过“产品编码”输入-自动从“资料库”中提取的信息。
If e.DataCol.Name = "产品编码"Then
Dim nms() As String = {"分类","规格型号","单价元","ID","产地","注册证号","单位","备注"}
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 & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
问题:不仅想通过“产品编码”,还想同时使用“产品名称”“通用名称”这三个,一起或随意一个,自动从“资料库”中提取的信息。谢谢!!!