Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码冲突，求解决！


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

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		代码冲突，求解决！  发帖心情 Post By：2016/8/30 9:55:00 [显示全部帖子]

1、PrepareEdit
'字典设置
Dim tb As New DropTreeBuilder
If e.Col.Name="部门ID" Then   
    If e.IsFocusCell Then
        If e.Row("科目一级")="管理费用" Then
            tb.TreeFilter="类型='后勤'"
        ElseIf e.Row("科目一级")="营业费用" Then
            tb.TreeFilter="类型='销售部'"
        ElseIf e.Row("科目一级")="财务费用" Then
            tb.TreeFilter="类型='公司整体'"
        End If
        tb.SourceTable = DataTables("预算部门管理") '指定目录树表
        tb.TreeCols = "区域名称|部门名称" '指定用于生成目录树的列
        tb.SourceCols = "ID|类型|区域名称|地区名称|部门名称" '指定数据来源列
        tb.ReceiveCols = "部门ID|部门类型|区域名称|地区名称|部门名称" '指定数据接收列
        Tables("预算填写").Cols("部门ID").DropTree = tb.Build()
    End If
End If

2、BeforeSaveDataRow
Dim dr As DataRow = e.DataRow
If dr.Isnull("部门ID") OrElse dr.Isnull("期间") OrElse dr.Isnull("费用金额") Then
    e.Cancel=True
    MessageBox.show("至少要填入部门ID,期间和费用金额!","提示")
Else
    If dr.RowState=DataRowState.Added Or dr.Rowstate = DataRowState.Modified Then
        Dim dr1 As DataRow = DataTables("修改日志").AddNew
        dr1("预算填写ID") = dr("ID")
        dr1("用户ID") = _UserName
        dr1("用户名称") = _UserXm
        dr1("修改时间") = Date.Now
        dr1("表名")= "预算填写"
        dr1("列名") = "费用金额"
        dr1("原数值")=  dr.OriginalValue("费用金额")
        dr1("现数值") =dr("费用金额")
        dr1.save
    End If
End If
两段代冲突，只要将光标放在用户ID列点保存，马上死机。把第一段的Messagebox拿掉就OK。求教是为什么？
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 9:56:00 [显示全部帖子]

第一段的
If e.Col.Name="部门ID" Then   
    If e.IsFocusCell Then
这两句IF位置互换前，不放在用户ID列也死机，互换后放在ID死机。
 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 10:03:00 [显示全部帖子]

保存按钮的代码，只是简单的tables("预算填写").save

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 10:04:00 [显示全部帖子]

昨天折腾了半天，请老师帮看看，谢谢！

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 10:18:00 [显示全部帖子]

2楼问题是自己误看，但确是只要放在弹出树型控件的客户ID，一点保存就死机！

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 10:25:00 [显示全部帖子]

谢谢楼上，但加了也不行，一点就死机！

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 10:28:00 [显示全部帖子]

把1段中的 MessageBox.show("至少要填入部门ID,期间和费用金额!","提示")拿了就不死机了，但这个提示是必要的。

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 10:57:00 [显示全部帖子]

可以了，但原因大约是什么，谢谢老师！

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


加好友 发短信
等级：五尾狐 帖子：1131 积分：8199 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2016/8/30 11:59:00 [显示全部帖子]

好的，我再学习一下！

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