Foxtable(狐表)用户栏目专家坐堂 → 有条件的增加内容到另一个表


  共有8748人关注过本帖平板打印复制链接

主题:有条件的增加内容到另一个表

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
有条件的增加内容到另一个表  发帖心情 Post By: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
按此在新窗口浏览图片

请前辈给修改一下/


 回到顶部