以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94563) |
-- 作者:有点蓝 -- 发布时间:2016/12/27 8:44:00 -- Dim dr As DataRow = e.DataRow Dim dt As DataRow = DataTables("监理合同台帐").Find("项目名称 = \'" & dr("项目名称") & "\'") If dt IsNot Nothing Then Select Case e.DataCol.Name Case "合同付款办法_收款比例" If dr.IsNull("合同付款办法_收款比例") OrElse dt.IsNull("合同监理费") Then dr("合同付款办法_收款金额") = Nothing Else dr("合同付款办法_收款金额") = dt("合同监理费") * dr("合同付款办法_收款比例") End If End Select End If
|
-- 作者:有点色 -- 发布时间:2016/12/27 12:14:00 -- 2楼代码不会有问题的,你datacolchanged事件应该有其他代码影响。 |
-- 作者:有点色 -- 发布时间:2016/12/27 12:20:00 -- 以下是引用有点色在2016/12/27 12:14:00的发言:
2楼代码不会有问题的,你datacolchanged事件应该有其他代码影响。
+1,要不做个实例上来看看 |
-- 作者:有点色 -- 发布时间:2016/12/27 14:49:00 -- If dt IsNot Nothing Then
改成
If dt1 IsNot Nothing Then |