-- 作者:sanny
-- 发布时间:2019/2/2 18:39:00
--
在表的属性DataColChanged中加代码:以下例子供参考
If e.DataCol.Name = "Customer_PartNo" Then Dim nms() As String = {"NameInEnglish","CustomerPartName","Unit","NetWeight_PC","Nameinchinese","MaterialName"} 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("PartList").Find("[CustomerPartNo] = \'" & 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
|