不要多用多值字段,分开录入.
DatacolChanged事件:
Select Case e.DataCol.Name Case "款式","型号_代码" Dim dr As DataRow = DataTables("结构清单").Find("款式 = '" & e.DataRow("款式") & "' And 型号_代码 = '" & e.DataRow("型号_代码") & "'") If dr IsNot Nothing Then e.DataRow("型号_名称") = dr("型号_名称") End IfEnd Select