用以下代码可以实现,不同列名的引用:
If e.DataCol.Name = "产品编号" Then
If e.NewValue Is Nothing Then
e.DataRow("品名") = Nothing
Else
Dim dr As DataRow
dr = DataTables("产品").Find("[产品编号] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("产品名称") = dr("品名")
End If
End If
End If
如果是用以下代码,该怎么写才可以不同列名的引用?
If e.DataCol.Name = "产品编号" Then
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 & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If