以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于表格样式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159392)

--  作者:flashv
--  发布时间:2020/12/24 18:19:00
--  关于表格样式

图片点击可在新窗口打开查看此主题相关图片如下:2020-12-24 18-15-41.jpg
图片点击可在新窗口打开查看


如上图.
代码已设置焦点单元格的背景色,字体色,已设置当前行的背景色和字体色.
运行时,没有任何点击的状态下,这一块是什么?

EmptyArea ,空白区
Focus,焦点
CurrentRow,当前行
上图这块是什么?

--  作者:有点蓝
--  发布时间:2020/12/24 20:14:00
--  
Focus,焦点
--  作者:flashv
--  发布时间:2020/12/24 21:33:00
--  
焦点代码我设置过了啊,如果鼠标点一下单元格,显示的就是对的.
窗口刚打开,鼠标没有点击单元格时,显示的就是白底黑字.
初始颜色不对啊.

--  作者:有点蓝
--  发布时间:2020/12/24 21:36:00
--  
表格只要有数据默认都会选中一个单元格,一般就是第一个
--  作者:flashv
--  发布时间:2020/12/24 22:33:00
--  
那为啥我明明设置了焦点单元格的颜色,但窗口刚打开时,第一个就是白底,要点一下才会正确显示呢?
--  作者:有点蓝
--  发布时间:2020/12/24 22:45:00
--  
怎么设置的,我测试没有问题呀

Dim t As Table = e.Form.Controls("Table1").Table
t.Fill("select * from {表A}","",True)
t.DataTable.SysStyles("CurrentRow").BackColor = Color.Blue
t.DataTable.SysStyles("Focus").BackColor = Color.Blue

--  作者:flashv
--  发布时间:2020/12/25 1:08:00
--  
\'高行高
Tables("商品订单表_临时").DefaultRowHeight = 24

\'表格空白区
DataTables("商品订单表_临时").SysStyles("EmptyArea").BackColor = Color.FromARGB(255,255,255)

\'焦点单元格背景色
DataTables("商品订单表_临时").SysStyles("Focus").BackColor = Color.FromARGB(153,180,209)
\'焦点单元格字体色
DataTables("商品订单表_临时").SysStyles("Focus").ForeColor = Color.FromARGB(0,0,0)

\'当前行背景色
DataTables("商品订单表_临时").SysStyles("CurrentRow").BackColor = Color.FromARGB(153,180,209)
\'当前行字体色
DataTables("商品订单表_临时").SysStyles("CurrentRow").ForeColor = Color.FromARGB(0,0,0)

--  作者:有点蓝
--  发布时间:2020/12/25 8:29:00
--  
我测试没有问题,做个例子发上来看看