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


  共有9474人关注过本帖树形打印复制链接

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

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By: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

 回到顶部