"商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

上面的代码：

商品编号"列当光标没有离开该列单元格时改变该列编号数据后后面对应的数据不发生变化。要求后面的数据必须对应商品编号。

商品编号填1对应的数据自动输入当我把他改成2数据不发生变化必须清除商品编号列数据光标移开这时对应数据消失然后得出的数据是新的。

刚才我试了几次确是这样，现在我搞了数据字典好了有关吗？

做个简单的例子发上来测试，代码没有错才对。