- 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=190905)
-- 发布时间：2024/3/13 10:15:00
-- 如何让表显示与窗口背景图一样或融合背景图问题
此主题相关图片如下：20243.png
-- 发布时间：2024/3/13 10:25:00
--
没有办法
-- 发布时间：2024/3/13 10:47:00
--
窗口表可以参考
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
-- 发布时间：2024/3/13 11:06:00
--
.DataSource = dt4报错提示， dt4不能访问？
.S elect( - 1, - 1) \'移除焦点行，报错.S 不是Table1成员?
[此贴子已经被作者于2024/3/13 11:07:44编辑过]
-- 发布时间：2024/3/13 11:26:00
--
要变通啊，看看示例6
.Select( - 1, - 1) \'移除焦点行，报错.S 不是Table1成员?
不需要的你不用啊，你只看你需要的代码，美剧代码后面都有注释
[此贴子已经被作者于2024/3/13 11:27:12编辑过]
-- 发布时间：2024/3/13 11:48:00
--
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
-- 发布时间：2024/3/13 12:08:00
--
此主题相关图片如下：202433.png
-- 发布时间：2024/3/13 12:18:00
--
表格控件没有办法透明
-- 发布时间：2024/3/13 12:23:00
--
能用echarts来实现？如何实现？
-- 发布时间：2024/3/13 13:38:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=132587