Foxtable(狐表) → 用户栏目 → 专家坐堂 → PrepareEdit事件


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

主题：PrepareEdit事件
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

到命令窗口写代码遍历所有窗口一次性处理。当然也可以每个窗口都加代码处理

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


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

For Each frm As WinForm.Form In Forms
    frm.open()
    For Each c As object In frm.Children
        Dim  r As Row = Tables("表A").addnew
        r("窗口") = frm.name
        r("控件") = c.Name
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不可以。只能预先把窗口和控件名称都保存下来使用

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


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

建一个表，使用23楼的代码把窗口和控件名称都存储表格中，假设这个表名称为“控件表”

prepareedit事件
If e.IsFocusCell andalso e.row.isnull("窗口名") = false Then '如果是焦点所在单元格
    If e.Col.Name = "控件名" Then '如果正在编辑的是县市列
        e.Col.Combolist = DataTables("控件表").GetComboListString("控件名"," [窗口名] = '" & e.Row("窗口名") & "' ")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


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

请上传实例测试

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


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

错误所在事件：窗口,代码,AfterLoad

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


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

这种代码应该放到命令窗口执行。并且所有窗口类型都不能是模式、下拉窗口、popform。如果有先改为独立窗口，代码执行完毕再改回来

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


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

dim srr() as string = {"窗口1","窗口2"}
For Each s as string insrr
dim frm As WinForm.Form = Forms(s)
frm.open()
    For Each c As object In frm.Children
……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

For Each s as string in srr

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