参考:
订单表,DataColChanged事件
Select Case e.DataCol.Name
Case "订单号"
Dim dr As DataRow = e.DataRow
If dr.IsNull("订单号") Then
dr("商标") = Nothing
Else
dr("商标") = DataTables("订单明细表").GetComboListString("商标","订单号='" & dr("订单号") & "'").replace("|","/")
End If
End Select
[此贴子已经被作者于2016/12/23 21:50:48编辑过]