Foxtable(狐表) → 用户栏目 → 专家坐堂 → DataColChanged代码触发


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

主题：DataColChanged代码触发
帅哥哟，离线，有人找我吗？
一笑
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		DataColChanged代码触发  发帖心情 Post By：2019/3/8 10:51:00 [显示全部帖子]

计划"日期符","自动分组","机号"值发生变化触发事件，修改“日期机号”单元格值，DataColChanged中写入以下：

Select Case e.DataCol.Name
    Case "日期符","自动分组","机号"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("日期符") = False Then
            dr("日期机号") = dr("日期符") & "/" & dr("机号") & dr("自动分组") 
        End If
End Select

实际测试中修改"机号"时只会得出dr("日期符") & "/" & dr("机号")，而未加上"自动分组"的值，例如：三个值分别为20190102，B3155,1，机号B3155改为B3166后“日期机号”应该为20190102/B31661，而实际为20190102/B3166，只有再重置“自动分组”列，才能得出20190102/B31661，求解代码有错吗，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2019/3/8 13:22:00 [显示全部帖子]

msgbox(dr("自动分组")) '弹出自动分组号：1
            msgbox(dr("日期符") & "/" & dr("机号") & dr("自动分组") ) '弹出正常，有自动分组号：20190102/B31661
            dr("日期机号") = dr("日期符") & "/" & dr("机号") & dr("自动分组")  “日期机号” 仍然显示：20190102/B3166
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询