各位老师，您好，在此请教一下各位老师，我想实现的功能是在父子表关联的情况下，子表新增行时，其“单价”列能自动带出父表“单价”列的数据，但又同时能够手动修改子表“单价”列的数据。
目前使用在表属性中DataColChanged加入了如下代码，实现了跨表引用数据功能，但我在实际使用中发现在用重置列功能后会将所有历史记录的“单价”更新为最新单价，但我想保留之前的单价不变，代码该如何写？
If e.DataCol.Name = "料号" Then '如果内容发生变动的是品名列
If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
e.Da
taRow("单价") = Nothing '那么清空此行单价列的内容
Else
Dim dr As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("父表名称").Find("[料号] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("单价") = dr("单价")
End If
End If
End If
[此贴子已经被作者于2022/10/10 19:09:30编辑过]
加好友 
发短信
Post By：2022/10/10 18:56:00 [只看该作者]
