以下是引用lsf5138在2013-5-18 12:27:00的发言：是这样的，订单表和订单明细表用订单ID关联，都有单价列，
现要判断订单明细表的所有记录行的单价列都如果不为空，订单表的单价列才能输入值。
因为如果用重量计价就用订单表的单价列，如果用产品计价就用订单明细表的单价列，只能二选一！
找不到相关代码！
If e.DataCol.Name = "品名"
Then
'如果内容发生变动的是品名列
If e.NewValue Is Nothing
Then
'如果新值是空白,也就是品名列的内容为空
e.DataRow("单价") = 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
参考下吧
加好友 
发短信
Post By：2013/5/18 14:14:00 [显示全部帖子]
