Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码冲突2


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

主题：代码冲突2
帅哥哟，离线，有人找我吗？
fubblyc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		代码冲突2  发帖心情 Post By：2019/7/30 16:21:00 [只看该作者]

老师，麻烦帮忙看下这个代码：



资金日报项目表 

DataColChanged代码


If e.DataCol.Name = "项目" Then
    If e.NewValue Is Nothing Then
        e.DataRow("A00") = Nothing
        e.DataRow("C00") = Nothing
        e.DataRow("合计") = Nothing
    Else
        e.DataRow("A00") = Nothing
        e.DataRow("C00") = Nothing
        e.DataRow("合计") = Nothing
        
        Dim dr As DataRow
        
        dr = DataTables("用友项目表").Find("[项目编码] = '" & e.DataRow("A00项目编码") & "' ")
        If dr IsNot Nothing And e.DataRow("A00项目编码").StartsWith("11")
            e.DataRow("A00") = dr("原币金额收入")
        End If
        
        dr = DataTables("用友项目表").Find("[项目编码] = '" & e.DataRow("A00项目编码") & "' ")
        If dr IsNot Nothing And e.DataRow("A00项目编码").StartsWith("12")
            e.DataRow("A00") = dr("原币金额支出")
        End If
        
        
        dr = DataTables("用友项目表").Find("[项目编码] = '" & e.DataRow("C00项目编码") & "' ")
        If dr IsNot Nothing And e.DataRow("C00项目编码").StartsWith("21")
            e.DataRow("C00") = dr("原币金额收入")
        End If
        
        dr = DataTables("用友项目表").Find("[项目编码] = '" & e.DataRow("C00项目编码") & "' ")
        If dr IsNot Nothing And e.DataRow("C00项目编码").StartsWith("22")
            e.DataRow("C00") = dr("原币金额支出")
        End If
    End If
End If

If e.DataCol.Name = "日期" Then
    
    '收入
    If e.DataRow("A00项目编码") = "111" Then '销售资金收入
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '1110%' or A00项目编码 like '1111%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '1110%' or A00项目编码 like '1111%' ")
    End If
    
    If e.DataRow("A00项目编码") = "112" Then '1.2?其他资金收入
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '1120%' or A00项目编码 like '1121%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '1120%' or A00项目编码 like '1121%' ")
    End If
    
    If e.DataRow("A00项目编码") = "113" Then '2?内部往来收入
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '1130%' or A00项目编码 like '1131%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '1130%' or A00项目编码 like '1131%' ")
    End If
    
    '支出
    If e.DataRow("A00项目编码") = "121" Then '1?货款支出
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '1210%' or A00项目编码 like '1211%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '1210%' or A00项目编码 like '1211%' ")
    End If
    
    If e.DataRow("A00项目编码") = "12201" Then '2.1?自营费用支出
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '122010%' or A00项目编码 like '122011%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '122010%' or A00项目编码 like '122011%' ")
    End If
    
    If e.DataRow("A00项目编码") = "12202" Then '2.2?联营费用支出
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '122020%' or A00项目编码 like '122021%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '122020%' or A00项目编码 like '122021%' ")
    End If
    
    
    If e.DataRow("A00项目编码") = "123" Then '其他支出
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '1230%' or A00项目编码 like '1231%' ")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '1230%' or A00项目编码 like '1231%' ")
    End If
    
    If e.DataRow("A00项目编码") = "124" Then '内部往来支出
        e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 like '1240%' or A00项目编码 like '1241%'")
        e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 like '1240%' or A00项目编码 like '1241%'")
    End If    
End If

'If e.DataCol.Name = "分销商" Then
    'If e.DataRow("A00项目编码") = "10" Then '1?资金总收入
        'e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 = '111' or A00项目编码 = '112' ")
        'e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 = '111' or A00项目编码 = '112' ")
    'End If
    '
    'If e.DataRow("项目") = "收入项目金额合计" Then '1?资金总收入
        'e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 = '111' or A00项目编码 = '112' or A00项目编码 = '113' ")
        'e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 = '111' or A00项目编码 = '112' or A00项目编码 = '113' ")
        'forms("资金日报填写").Controls("textbox2").value  = Nothing
        'forms("资金日报填写").Controls("textbox6").value  = Nothing
        'forms("资金日报填写").Controls("textbox2").value  = e.DataRow("A00")
        'forms("资金日报填写").Controls("textbox6").value  = e.DataRow("C00")
    'End If
    '
    'If e.DataRow("A00项目编码") = "122" Then '费用支出
        'e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 = '12201' or A00项目编码 = '12202' ")
        'e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 = '12201' or A00项目编码 = '12202' ")
    'End If
    '
    'If e.DataRow("项目") = "支出项目金额合计" Then '1?资金总收入
        'e.DataRow("A00") = e.DataTable.Compute("sum(A00)","A00项目编码 = '121' or A00项目编码 = '12201' or A00项目编码 = '12202' or A00项目编码 = '123' or A00项目编码 = '124' ")
        'e.DataRow("C00") = e.DataTable.Compute("sum(C00)","A00项目编码 = '121' or A00项目编码 = '12201' or A00项目编码 = '12202' or A00项目编码 = '123' or A00项目编码 = '124' ")
        'forms("资金日报填写").Controls("textbox4").value  = Nothing
        'forms("资金日报填写").Controls("textbox8").value  = Nothing
        'forms("资金日报填写").Controls("textbox4").value  = e.DataRow("A00")
        'forms("资金日报填写").Controls("textbox8").value  = e.DataRow("C00")
    'End If
    '
    'e.DataRow("合计") = e.DataRow("A00") + e.DataRow("C00")
'
    'If e.DataRow("合计") = 0 Then
        'e.DataRow("合计") = Nothing
    'End If
'End If

只要把这部分注释掉，就没有问题，一旦加上这段代码，就出现这样的情况
以下内容是专门发给有点蓝浏览


图片点击可在新窗口打开查看此主题相关图片如下：gif.gif
图片点击可在新窗口打开查看


[此贴子已经被作者于2019/7/30 16:22:26编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询