此主题相关图片如下:1.png

此主题相关图片如下:2.png

随件卡-表属性-DataColChanged
If e.DataCol.Name = "工序代码" Then
If e.NewValue Is Nothing Then
e.DataRow("客户名称") = Nothing
e.DataRow("产品种类") = Nothing
e.DataRow("产品名称") = Nothing
e.DataRow("单价") = Nothing
e.DataRow("产品代码") = Nothing
Else
Dim dra As DataRow
dra = DataTables("产品表").Find("[工序代码] = '" & e.NewValue & "'")
If dra IsNot Nothing
e.DataRow("客户名称") = dra("客户名称")
e.DataRow("产品种类") = dra("产品种类")
e.DataRow("产品名称") = dra("产品名称")
e.DataRow("单价") = dra("单价")
e.DataRow("产品代码") = dra("产品代码")
End If
End If
End If
为什么录入的时候可以正常跨表引用数据 但是换一个用户登录引用的单价数据就没有了呢?还得重新刷新重置列才能出来单价数据