Foxtable(狐表)用户栏目专家坐堂 → [求助]复制


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

主题:[求助]复制

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


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]复制  发帖心情 Post By:2020/4/7 21:00:00 [只看该作者]

老师,下面代码怎样控制不重复复制。


If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim nma() As String = {"_Identify","入库单编号明细" , "入库日期","客户ID","客户名称","商品ID","商品名称","项目分类","规格","入库_数量","入库_单价","入库_单位","合计金额" } 'A表数据来源列
        Dim nmb() As String = {"ID" ,"单据编号" , "日期","客户ID","客户","商品ID","项目名称","项目类别","规格","数量","单价","单位","支出" } 'B表数据接收列
        e.DataRow.save
        Dim dr2 As DataRow = DataTables("收支表").Find("单据编号 = '" & e.DataRow("入库单编号明细") & "'")             '找到指定返回的行
        If dr2 Is Nothing Then
            Dim dr3 As DataRow = DataTables("收支表").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr3(nmb(i)) = e.DataRow(nma(i))
            Next
            dr3("来源") = "采购" 
        End If
    Else
        DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/7 21:45:00 [只看该作者]

代码有什么问题?查不到才会新增呀

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/4/8 8:50:00 [只看该作者]

老师好



图片点击可在新窗口打开查看此主题相关图片如下:数据库.png
图片点击可在新窗口打开查看
 

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/8 9:08:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/4/10 8:55:00 [只看该作者]

老师,下面两组代码不能单独应用。

If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim nma() As String = {"_Identify","出库单编号明细" , "出库日期","客户ID","客户","商品ID","商品名称","项目分类","规格","出库_数量","出库_售价","出库_单位","出库_价税合计","出库单编号明细"} 'A表数据来源列
        Dim nmb() As String = {"ID" ,"单据编号" , "日期","客户ID","客户","商品ID","项目名称","项目类别","规格","数量","单价","单位","收入","出库单编号明细" } 'B表数据接收列
        e.DataRow.save
        Dim dr2 As DataRow = DataTables("收支表").Find("单据编号 = '" & e.DataRow("出库单编号明细") & "'")             '找到指定返回的行
        If dr2 Is Nothing Then
            Dim dr As DataRow = DataTables("收支表").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = e.DataRow(nma(i))
            Next
            dr("来源") = "销售" '入库表就改为"采购",其他表改为"其它"
        End If
    Else
        DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")
    End If
End If



If e.DataCol.Name = "已开piao"
    If e.DataRow("已开piao") = True Then
        Dim nma() As String = {"_Identify","出库单编号", "出库_税率","开piao日期" ,"fa piao名称","fa piao号码","出库_税金","出库_税金" } 'A表数据来源列
        Dim nmb() As String = {"ID" ,"单据编号","规格", "日期","项目类别","fa piao号码","单价","支出" } 'B表数据接收列
        e.DataRow.save
        Dim dr1 As DataRow = DataTables("收支表").Find("fa piao号码 = '" & e.DataRow("fa piao号码") & "'")             '找到指定返回的行
        If dr1 Is Nothing Then
            Dim dr As DataRow = DataTables("收支表").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = e.DataRow(nma(i))
            Next
            dr("来源") = "支出" '入库表就改为"采购",其他表改为"其它"
            dr("单位") = "份"
            dr("数量") = "1"
            dr("客户ID") = "S001"
            dr("客户") = "园区国税"
            dr("项目名称") = "增值税"
        End If
    Else
        DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/10 9:11:00 [只看该作者]

有什么问题?

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/4/10 9:15:00 [只看该作者]

两组代码中第一组代码不复制,屏蔽第二组代码第一组就可以复制。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/10 9:20:00 [只看该作者]

第一组
Else
        DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")

改为

Elseif e.DataRow("已开piao") = false
        DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")

第二组改为

Elseif e.DataRow("审核") = false
        DataTables("收支表").deletefor("ID = '" & e.DataRow("_Identify") & "'")

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2020/4/10 10:22:00 [只看该作者]

谢谢老师

 回到顶部