主题：请教不设置关联，自动填充对应数据代码

设置盘点表的DataColChanged时间代码：

Select Case e.DataCol.Name
    Case "名称","模号"
        Dim dr1 As DataRow = e.DataRow
        If dr1.IsNull("标准模号") Then
            messagebox.show("1")
            Dim dr2 As DataRow = DataTables("库存表").Find("名称 = '" & dr1("名称") & "' And 模号 = '" & dr1("模号") & "'")
            If dr2 IsNot Nothing Then
                dr1("标准模号") = dr2("标准模号")
            End If
        End If
End Select