- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 有条件的增加内容到另一个表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=23027)
-- 发布时间：2012/8/30 17:59:00
-- 有条件的增加内容到另一个表
在表B的DataColChanged 事件中,加入如下代码,目的是:输入 列发生改变,并且是勾选状态时.并且判断表A的编码 列 与当前表的编码列不一至时,在表A增加一行并且数据为当前行.否则(找到相同编码时),数量列累加.
If e.DataCol.Name = "输入" Then \'如果是已结帐列的内容变动
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
Dim dr As DataRow = DataTables("表A").Find("编码 = \'" & e.DataRow("编码") & "\'")
If dr Is Nothing Then
DataTables("表A").AddNew
For Each dc As DataCol In DataTables("表A").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
Else
dr("数量") = dr("数量") + e.DataRow("数量")
End If
End If
End If
以上代码执行后出现错误提示:
此主题相关图片如下：qq截图20120830175736.png
请前辈给修改一下/
-- 发布时间：2012/8/30 19:14:00
--
If e.DataCol.Name = "输入" Then \'如果是已结帐列的内容变动
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
Dim dr As DataRow = DataTables("表A").Find("编码 = \'" & e.DataRow("编码") & "\'")
If dr Is Nothing Then
Dim dr1 As DataRow = DataTables("表A").AddNew
For Each dc As DataCol In DataTables("表A").DataCols
dr1(dc.Name) = e.DataRow(dc.Name)
Next
Else
dr("数量") = dr("数量") + e.DataRow("数量")
End If
End If
End If