这是表属性代码。
'在表中输入商品编码,在商品资料找出对应此商品的其他项自动填入表中
If e.DataCol.Name = "商品编码" Then '当商品编码输入时
'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("商品资料").Find("商品编码 = '" & e.DataRow("商品编码") & "'" )
'在商品资料表中找到对应商品时,自动填入.
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("商品名称")= dr("商品名称")
e.DataRow("商品规格")= dr("商品规格")
e.DataRow("生产企业")= dr("生产企业")
e.DataRow("单位")= dr("商品单位")
End If
End If
'在表中输入商品名称时,在商品资料表中找出对应的商品编码并自动填入表中,其他解释同上.
If e.DataCol.Name = "商品名称" Then '发生变化的是产品编号吗?
'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("商品资料").Find("商品名称= '" & e.DataRow("商品名称") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("商品编码")= dr("商品编码")
End If
End If
'在表中输入供应商编码时,在供应商资料表中找出对应的供应商并自动填入表中,其他解释同上.
If e.DataCol.Name = "供应商编码" Then '发生变化的是产品编号吗?
'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("供应商资料").Find("供应商编码 = '" & e.DataRow("供应商编码") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("供应商名称")= dr("供应商名称")
End If
End If
'在表中输入供应商名称时,找出相应供应商编码并自动填入表中
If e.DataCol.Name = "供应商名称" Then '发生变化的是产品编号吗?
'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("供应商资料").Find("供应商名称= '" & e.DataRow("供应商名称") & "'" )
If dr IsNot Nothing '如果找到, 则设置各列内容
e.DataRow("供应商编码")= dr("供应商编码")
End If
End If
加好友 
发短信
Post By：2016/11/22 14:16:00 [只看该作者]
此主题相关图片如下：qq截图20161122141244.png