- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表格代码设置网格线问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161551)
-- 发布时间：2021/3/22 12:08:00
-- [求助]表格代码设置网格线问题
问题图片说明:
此主题相关图片如下：1616385785(1).jpg
代码：
For Each dt As Table In Tables
dt.ListMode = True
dt.DataTable.SysStyles("Highlight").BackColor = Nothing
dt.DataTable.SysStyles("Alternate").BackColor = Nothing
dt.DataTable.SysStyles("CurrentRow").BackColor= Color.Wheat
dt.grid.Styles("Normal").border.Color = Color.black
Next
dt.ListMode = True
dt.DataTable.SysStyles("Highlight").BackColor = Nothing
dt.DataTable.SysStyles("Alternate").BackColor = Nothing
dt.DataTable.SysStyles("CurrentRow").BackColor= Color.Wheat
dt.grid.Styles("Normal").border.Color = Color.black
Next
想要下面图片的效果，因为有些事临时表，如果不是临时表还能手动设置：
此主题相关图片如下：1616385944(1).jpg
-- 发布时间：2021/3/22 13:52:00
--
已反馈
-- 发布时间：2021/3/22 14:17:00
--
dt.ListMode = True
dt.SysStyles("Highlight").BackColor = Nothing
dt.SysStyles("Alternate").BackColor = Nothing
dt.SysStyles("Normal").Border.Color = Color.black
dt.SysStyles("CurrentRow").Backcolor = Color.Wheat
dt.SysStyles("CurrentRow").Border.color = Color.black
-- 发布时间：2021/3/22 14:56:00
--
