"商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
上面的代码:
商品编号"列当光标没有离开该列单元格时改变该列编号数据后后面对应的数据不发生变化。要求后面的数据必须对应商品编号。