| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]用代码创建临时表，可以用代码设置临时表自定义图标吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95997) |
| -- 作者：蓝才文百 -- 发布时间：2017/2/10 11:14:00 -- [求助]用代码创建临时表，可以用代码设置临时表自定义图标吗？ 如题所述，我动态创建临时表，用于容纳各个模块窗体，现在要通过代码设置这些不同临时表的自定义图标，请问代码如何写？谢谢！ |
| -- 作者：有点色 -- 发布时间：2017/2/10 11:20:00 -- 参考代码
Dim tab As object = basemainform.controls("mainpages") |
| -- 作者：蓝才文百 -- 发布时间：2017/2/10 11:28:00 -- mainpages 是指系统自己显示表的那个 tab 吗？ |
| -- 作者：有点色 -- 发布时间：2017/2/10 11:30:00 -- 是 |
| -- 作者：蓝才文百 -- 发布时间：2017/2/10 11:49:00 -- 提示出错： .NET Framework 版本：2.0.50727.5485 Foxtable 版本：2016.7.29.1 错误所在事件：窗口,LeftMenuForm,btnProducts,Click 详细错误信息： 未设置对象变量或 With 块变量。 |
| -- 作者：有点色 -- 发布时间：2017/2/10 11:50:00 -- 贴出你写的代码。 |
| -- 作者：蓝才文百 -- 发布时间：2017/2/10 11:54:00 -- 谢谢！ button click 中： If Forms("商品管理").Opened = False Then Dim dtb As New DataTableBuilder("商品管理") dtb.AddDef("ID", Gettype(Integer)) dtb.Build() \'Tables("產品管理").image = GetImage("food32.ico") Forms("商品管理").open Dim tab As object = basemainform.controls("mainpages") tab.tabpages("產品管理").image = GetImage("food32.ico") MainTable = Tables("商品管理") Else MainTable = Tables("商品管理") End If [此贴子已经被作者于2017/2/10 11:54:49编辑过]
|
| -- 作者：蓝才文百 -- 发布时间：2017/2/10 11:56:00 -- 哦，看到了，我搞对象了，写错窗体名称。 [此贴子已经被作者于2017/2/10 11:55:49编辑过]
|
| -- 作者：蓝才文百 -- 发布时间：2017/2/10 11:57:00 -- 可以了，谢谢！ 是我那个窗体名称搞错了。
|
| -- 作者：有点色 -- 发布时间：2017/2/10 11:59:00 -- If Forms("商品管理").Opened = False Then
Dim dtb As New DataTableBuilder("商品管理")
dtb.AddDef("ID", Gettype(Integer))
dtb.Build()
Forms("商品管理").open
Dim tab As object = basemainform.controls("mainpages")
tab.tabpages("商品管理").image = GetImage(ProjectPath & "images\\food32.ico")
MainTable = Tables("商品管理")
Else
MainTable = Tables("商品管理")
End If
|