- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]当产行颜色设置（页面集合下查询到的表附加在控件表上） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150783)
-- 发布时间：2020/6/7 16:40:00
-- [求助]当产行颜色设置（页面集合下查询到的表附加在控件表上）
窗口中有菜单按钮，把生产的表附加在页面集合下的控件表上。（有多个页签与表）
Tables("统计查询_Table1").datasource = b.Build \'生成统计表在 SelectedIndexChanged 事件下写如下代码，背景色是有效的，当前行颜色无效
Dim tp As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim str As String = tp.SelectedPage.Name
DataTables(str).SysStyles("CurrentRow").BackColor = Color.Azure \'表的当前行颜色
DataTables(str).SysStyles("EmptyArea").BackColor = Color.WhiteSmoke \'表的背景空白区域颜色
Tables(str).ListMode = True
-- 发布时间：2020/6/7 22:10:00
--
-- 发布时间：2020/6/7 23:11:00
--
当前行颜色，还是不起作用。
-- 发布时间：2020/6/8 8:30:00
--
帮看下，附件是开发版本。（考虑到 很多电脑没有 .net4.0，我用的是 2019-4-12版本的）
-- 发布时间：2020/6/8 9:05:00
--
放到点击事件里，注意代码顺序，先设置Tables(str).ListMode = True
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:产能预测.zip |
-- 发布时间：2020/6/8 12:13:00
--
文件版本过高，打不开，好尴尬
-- 发布时间：2020/6/8 13:34:00
--
Tables("统计查询_Table1").datasource = b.Builddatasource
Tables("统计查询_Table1").ListMode = True
DataTables("统计查询_Table1").SysStyles("CurrentRow").BackColor = Color.Azure \'表的当前行颜色
DataTables("统计查询_Table1").SysStyles("EmptyArea").BackColor = Color.WhiteSmoke \'表的背景空白区域颜色
-- 发布时间：2020/6/8 15:37:00
--
多谢蓝版，销售统计，用量统计 都 OK 了。
但下面的机时统计、工时统计 还是不行。帮再看下。（高版本也没关系了，我用另一台电脑调试了）
-- 发布时间：2020/6/8 16:09:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:产能预测.zip |
-- 发布时间：2020/6/8 17:37:00
--
蓝版
完美搞定。