Foxtable(狐表) → 用户栏目 → 专家坐堂 → 修改了datacolchanged代码后，重置相关列，怎么还是执行以前的代码？


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

主题：修改了datacolchanged代码后，重置相关列，怎么还是执行以前的代码？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 8:52:00 [显示全部帖子]

1、没有选中case里面的列重置
2、没有符合条件的数据
3、判断单元格是否为空请使用isnull：http://www.foxtable.com/webhelp/topics/0426.htm
4、确定列名是对的？注意中间的空格

                If dr("价格收款_WT") = False Then
                    Dim str1 As String = " DT_"&" '"& dr("价格收款_单位") & "'"&" 固定"
msgbox(str1 )
                    If dr5.isnull(str1)=false Then
                        dr("员工收入") = dr5(str1)
                    End If
                End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 11:07:00 [显示全部帖子]

不符合条件，原来的数据是怎么样就肯定还是怎么样。

另外确定列名里会有单引号这种神奇的东西？

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 11:57:00 [显示全部帖子]

说明没有符合这些条件的数据

        If dr("调度操作_订单结果") = "成功" AndAlso dr.IsNull("员工_姓名") = False Then
            Dim dr5 As DataRow = DataTables("员工数据表").Find("员工_姓名 = '" & dr("员工_姓名") &"'")
            If dr5 IsNot Nothing Then
                If dr("价格收款_WT") = False Then
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 12:07:00 [显示全部帖子]

代码放到循环里面的，肯定是不断弹出来。提示框是用来做测试的，如果确定列名没有问题，去掉提示框在重新测试即可

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 13:36:00 [显示全部帖子]

dr("调度操作_单位")是空值没有数据，生成的列名就不正确了

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/8 15:06:00 [显示全部帖子]

               If dr("价格收款_WT") = False AndAlso dr.IsNull("调度操作_单位") = False Then
                    Dim str1 As String = "DT_"&"" & dr("调度操作_单位") &""&"_固定"
                    Dim str2 As String = "DT_"&"" & dr("调度操作_单位") &""&"_保底"
                    Dim str3 As String = "DT_"&"" & dr("调度操作_单位") &""&"_分成"
                    If dr5.IsNull(str1) = False Then
                        dr("员工收入") = dr5(str1)
                    Else dr5.IsNull(str3) = False Then
                        dr("员工收入") = (dr("调度操作_收款") - dr("调度操作_车费")) * dr5(str3)
                    End If
                        If dr("员工收入") < dr5(str2) Then
                            dr("员工收入") = dr5(str2)
                        End If

                End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询