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


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

主题：代码冲突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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/30 20:48:00 [只看该作者]

看不懂这个代码逻辑。

A00的计算只看到和A00项目编码有关系，没看到和项目，分销商，日期列有什么关系，为什么要判断这些列？

项目开发者密码是多少？
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，我重新上传一下项目：

以下内容是专门发给有点蓝浏览
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这是导入的表格

以下内容是专门发给有点蓝浏览
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/2 14:13:00 [只看该作者]

web服务端连接的是什么数据库？access？

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/2 14:21:00 [只看该作者]

    'dr("项目") = dr("项目").trim()  & chr(11)
    'dr("项目") = dr("项目").trim(chr(11))

这2句代码的原因。话说这2句是干嘛用的？
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

蓝老师，是，用的三层架构，sql server 


    'dr("项目") = dr("项目").trim()  & chr(11)
    'dr("项目") = dr("项目").trim(chr(11))

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=136795



此主题相关图片如下：微信截图_20190802175547.png
按此在新窗口浏览图片




[此贴子已经被作者于2019/8/2 17:55:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

好像是跟这个代码有关：

DataColChanged代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/2 20:27:00 [只看该作者]

就是chr(11)的问题，和web数据源的保存模式有关，算是一个bug，试试改为其他方式

dim s as string = dr("项目")
s = dr("项目").trim()  & "|"
dr("项目") = s
dr("项目") = s.Substring(0,s.length-1)
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/8/4 15:23:00 [只看该作者]

蓝老师，我百度了chr（11）  没有找到相关的内容，这个是什么意思呢？

 回到顶部
总数 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.06250 秒, 7 次数据查询