主题：新年快乐，请教如何自动匹配填充对应内容

在表的属性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