Foxtable(狐表) → 用户栏目 → 专家坐堂 → 页面集合控件页面卡标签切换时，表中数据被莫名删除


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

主题：页面集合控件页面卡标签切换时，表中数据被莫名删除
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/9 15:56:00 [显示全部帖子]

5楼的代码是要干嘛的？没看懂

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/13 22:42:00 [显示全部帖子]

判断下半部分选择的是哪一个页签就操作哪一个页签对应的表，比如

Dim tab As WinForm.TabControl = Forms("不归档文件").Controls("TabControl2")
Dim t As Table
If tab.SelectedPage.Text = "发文"
    t = Forms("不归档文件").Controls("Table1").tablbe
ElseIf tab.SelectedPage.Text = "收文"
    t = Forms("不归档文件").Controls("Table2").tablbe
Else
    t = Forms("不归档文件").Controls("Table3").tablbe
End If

t.current("第四列") = e.sender.value
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/13 23:05:00 [显示全部帖子]

把22楼这句代码改改即可

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

把下面3个表的datacolchanged、datacolchanging事件代码去掉

If e.Checked Then
    Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
    For idx As Integer = 0 To cst.Items.Count - 1
        If idx <> e.Index Then 
            cst.SetItemChecked(idx, False)
        End If
    Next
End If

Dim tab As WinForm.TabControl = Forms("不归档文件").Controls("TabControl2")
Dim t As Table
If tab.SelectedPage.Text = "发文"
    t = Forms("不归档文件").Controls("Table1").Table
ElseIf tab.SelectedPage.Text = "收文"
    t = Forms("不归档文件").Controls("Table2").Table
Else
    t = Forms("不归档文件").Controls("Table3").Table
End If

t.current("第四列") = e.sender.value
t.current("是否归档") = not e.Checked
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/14 11:36:00 [显示全部帖子]

测试没有问题。重新上传有问题的实例说明

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/14 11:58:00 [显示全部帖子]

需求帮助麻烦认真看看别人的回复

把下面3个表的datacolchanged、datacolchanging事件代码去掉
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/14 14:04:00 [显示全部帖子]

e.cancel = True这句去掉

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/14 16:05:00 [显示全部帖子]

同样的错误，为什么33楼就能自己解决？

Forms("归档鉴定").Controls("Table1").table

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