| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]任务栏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193316) |
| -- 作者：江南小镇 -- 发布时间：2024/9/4 12:08:00 -- [求助]任务栏 老师好，任务栏按钮代码不响应。 \'Select Case e.Sender.Name \'\'\'Select Case e.Link.text \'判断当前控件名称 \' Case "切换标题" \'TableCaptionVisible = Not TableCaptionVisible \'切换表标题 \' Case "切换界面" \' BaseMainform.Controls("C1Ribbon1").Visible = not BaseMainform.Controls("C1Ribbon1").Visible \'End Select
|
| -- 作者：有点蓝 -- 发布时间：2024/9/5 21:31:00 -- 代码放在哪个事件的？ 调试msgbox(e.Sender.Name) msgbox(e.Sender.text)
|
| -- 作者：江南小镇 -- 发布时间：2024/9/6 8:10:00 -- 好了，谢谢老师 |
| -- 作者：江南小镇 -- 发布时间：2024/9/6 8:13:00 -- 老师好，任务栏设置一定的高度，不填满整个页面。 Dim tpb1 As WinForm.TopicBar = Forms("水电气数据查询").Controls("TopicBar1") \'\'\'& i) ’tpb1.Dock = 5 e.Form.Controls("TabControl1").TabPages(0).AddControl(tpb1) |
| -- 作者：有点蓝 -- 发布时间：2024/9/8 10:46:00 -- http://www.foxtable.com/webhelp/topics/0719.htm tpb1.height = 300
|
| -- 作者：江南小镇 -- 发布时间：2024/9/8 15:12:00 -- 谢谢老师 |
| -- 作者：江南小镇 -- 发布时间：2024/9/9 8:54:00 -- 老师好，下面代码生成表的个别列内容能赋值给文本框吗？ Tables("窗口1_Table2").Fill("Se lect * ..... {文件管理}","数据查询",True) Tables("窗口1_Table2").SetColVisibleWidth("编号|56|记录日期|78|文件|191|备注说明|191|附件|263|路径|227|文件分类|59") |
| -- 作者：有点蓝 -- 发布时间：2024/9/9 9:01:00 -- e.form.controls("文本框").text =Tables("窗口1_Table2").current("某列") |
| -- 作者：江南小镇 -- 发布时间：2024/9/9 9:14:00 -- 老师，刚才没有说全面，窗口1_Table2的表要赋值给窗口2的文本框，在打开窗口2的前提下赋值。 |
| -- 作者：有点蓝 -- 发布时间：2024/9/9 9:44:00 -- forms("窗口2").controls("文本框").text =xxxx |