如何让表显示与窗口背景图一样或融合背景图问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：20243.png

窗口表可以参考

With Tables("主窗口_Table1")

.DataSource = dt4

.Cols.Remove("发布机构","发布部门","类别","主题","通知部门","内容","登记状态","登记人","登记日期","备注")

.DefaultRowHeight = 25 '所有行高

.Cols("发布日期").TextAlign = TextAlignEnum.Center '发布日期列数据居中

.grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向

.S elect(-1,-1) '移除焦点行

.Theme = "(none)" '清除表样式

.grid.rows(0).height = 0 '隐藏表头

.grid.styles.Normal.Border.Color = Color.WhiteSmoke '表格线颜色

.grid.styles.Normal.Border.Style = 1 '1为单线,2为双线

.grid.styles.Normal.Border.width = 0.6 '表格线宽

.grid.styles.Normal.Border.Direction = 1 '0为横竖线,1为横,2为竖

.grid.Styles("EmptyArea").Border.Color = Color.FromARGB(255,255,255) 'Transparent '表格边框颜色

.DataTable.SysStyles("Focus").ForeColor = Color.Red '焦点单元格字体颜色

'.DataTable.SysStyles("CurrentRow").ForeColor = Color.Red '当前行字体颜色

.DataTable.SysStyles("EmptyArea").BackColor = Color.White '空白区背景色

.DataTable.SysStyles("Focus").BackColor = Color.FromARGB(255,255,255) '焦点单元格背景颜色

.DataTable.SysStyles("CurrentRow").BackColor = Color.FromARGB(255,255,255) '当前行背景颜色

End With

我的出来是这个效果

此主题相关图片如下：qq截图20240313104617.jpg

.DataSource = dt4报错提示， dt4不能访问？

.S elect( - 1, - 1) '移除焦点行，报错.S 不是Table1成员?

[此贴子已经被作者于2024/3/13 11:07:44编辑过]

要变通啊，看看示例6

http://www.foxtable.com/webhelp/topics/0696.htm

.Select( - 1, - 1) '移除焦点行，报错.S 不是Table1成员?

不需要的你不用啊，你只看你需要的代码，美剧代码后面都有注释

[此贴子已经被作者于2024/3/13 11:27:12编辑过]

With Tables("主窗口_Table1")

Dim dt4 As DataTable

.DataSource = dt4

.Cols.Remove("发布机构","发布部门","类别","主题","通知部门","内容","登记状态","登记人","登记日期","备注")

.DefaultRowHeight = 25 '所有行高

.Cols("发布日期").TextAlign = TextAlignEnum.Center '发布日期列数据居中

.grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向

.Theme = "(none)" '清除表样式

.grid.rows(0).height = 0 '隐藏表头

.grid.styles.Normal.Border.Color = Color.WhiteSmoke '表格线颜色

.grid.styles.Normal.Border.Style = 1 '1为单线,2为双线

.grid.styles.Normal.Border.width = 0.6 '表格线宽

.grid.styles.Normal.Border.Direction = 1 '0为横竖线,1为横,2为竖

.grid.Styles("EmptyArea").Border.Color = Color.FromARGB(255,255,255) 'Transparent '表格边框颜色

.DataTable.SysStyles("Focus").ForeColor = Color.Red '焦点单元格字体颜色

'.DataTable.SysStyles("CurrentRow").ForeColor = Color.Red '当前行字体颜色

.DataTable.SysStyles("EmptyArea").BackColor = Color.White '空白区背景色

.DataTable.SysStyles("Focus").BackColor = Color.FromARGB(255,255,255) '焦点单元格背景颜色

.DataTable.SysStyles("CurrentRow").BackColor = Color.FromARGB(255,255,255) '当前行背景颜色

End With

问题一：

调用的目标发生了异常。

索引超出范围。必须为非负值并小于集合大小。

参数名: index

此主题相关图片如下：202433.png

表格控件没有办法透明

能用echarts来实现？如何实现？

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=132587

主题：如何让表显示与窗口背景图一样或融合背景图问题