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("规格")
End If
End If
下次提问时,现将明显的 字段 错误,处理好!!
合成表达式有错,这样才对 ("产品编号 = '" & e.DataRow("产品编号") & "'")
[此贴子已经被作者于2013-7-22 20:43:47编辑过]