If e.DataCol.Name = "产品编号" Then
Dim nms() As String = {"产品名称"}Dim nms2() 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 & "'")
If dr IsNot Nothing
For i as integer = 0 to nms.length - 1
e.DataRow(nms(i)) = dr(nms2(i))
Next
End If
End If
End If
[此贴子已经被作者于2020/6/17 14:48:53编辑过]