If e.DataCol.Name = "序号" Then '如果内容发生变动的是品名列
If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
e.DataRow("客户名称") = Nothing '那么清空此行单价列的内容
Else
Dim dr As DataRow
dr = DataTables("客户资料").Find("[_Identify] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("客户名称") = dr("客户名称")
e.DataRow("联系人") = dr("主联系人")
End If
End If
End If
这样已经可以了,但问题的关键来了,我是不想用关联表的方式,这样仍然避免不了用关联表,并且我要在关联表的子表下添加记录才可以继承下来,有什么好的办法不用关联的方式没? 我感觉这样跟用关联的效率差不多。因为我业务表的序号是不手动录入的,是靠在子表输入时,序号自动增加变化。
[此贴子已经被作者于2016/4/27 20:26:48编辑过]