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


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

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


加好友 发短信
等级：超级版主 帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/10 16:03:00 [只看该作者]

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

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


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/10 16:09:00 [只看该作者]

可以帮我弄一下，我有点搞不懂

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


加好友 发短信
等级：超级版主 帖子：106017 积分：539172 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/10 17:02:00 [只看该作者]

还是不懂
If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "标签优惠工费" Then '如果正在编辑的是县市列
        '从行政区域表提取该省市的县市作为列表项目
        e.Col.Combolist = DataTables("今日旧金工费").SQLGetComboListString("标价工费"," [旧金备注] = '" & e.Row("旧金备注") & "' ")
    End If
End If


不可以像这样吗
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/10 17:07:00 [只看该作者]

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

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


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/10 17:12:00 [只看该作者]

你可以帮我代码弄清楚点不，应该什么弄，用到哪些代码

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


加好友 发短信
等级：超级版主 帖子：106017 积分：539172 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/10 17:32:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看

这样只显示两个
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106017 积分：539172 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/10 17:48:00 [只看该作者]


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


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/10 17:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看


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