| 以文本方式查看主题 - 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=140788) |
| -- 作者：yifan3429 -- 发布时间：2019/9/14 8:01:00 -- 当前表，突出行设置 dr fot As new Font (字体的颜色 背景色 字号 等设计） Dim dt As Table = Tables(e.form.tableName) \'Tables(e.form.tableName).ListMode = True \'突出选定行 \'Tables(e.form.tableName).ExtendLastCol = True \'当前表自动调整列宽 dt.ListMode = True \'突出选定行 dt.ExtendLastCol = True \'当前表自动调整列宽 需要解决 dt.行的底色 字体色设计 |
| -- 作者：有点蓝 -- 发布时间：2019/9/15 15:51:00 -- 参考：http://www.foxtable.com/webhelp/topics/1577.htm |
| -- 作者：yifan3429 -- 发布时间：2019/9/29 17:32:00 -- Dim dt As Table = Tables(e.form.tableName) dt.ListMode = True \'突出选定行 dt.SysStyles("CurrentRow").BackColor = Color.White 突出行的背景色设置出错 dt.ExtendLastCol = True \'当前表自动调整列宽 \'Tables("订单").Cols("数量").Width = 150 \'当前表指定列的宽度 dt.DefaultRowHeight = 40 \'当前表自动固定行高
|
| -- 作者：有点蓝 -- 发布时间：2019/9/29 17:39:00 -- SysStyles是datatable的属性，不是table的 dt.datatable.SysStyles("CurrentRow").BackColor = Color.White |
| -- 作者：yifan3429 -- 发布时间：2019/9/29 19:14:00 -- 网格线颜色设置呢 帮助找不到都是手动设置的 代码如何实现 |
| -- 作者：有点蓝 -- 发布时间：2019/9/29 20:23:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100864&skin=0 |
| -- 作者：yifan3429 -- 发布时间：2019/9/29 21:48:00 -- Dim dt As Table = Tables("工作计划") \'Tables(e.form.tableName).ListMode = True \'突出选定行 \'Tables(e.form.tableName).ExtendLastCol = True \'当前表自动调整列宽 dt.ListMode = True \'突出选定行 dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue dt.DataTable.SysStyles("EmptyArea").BackColor = Color.White \'当前表空白区背景色 dt.DataTable.Grid.Styles("Normal").Border.Color = Color.red dt.ExtendLastCol = True \'当前表自动调整列宽 \'Tables("订单").Cols("数量").Width = 150 \'当前表指定列的宽度 dt.DefaultRowHeight = 40 \'当前表自动固定行高 dt.DataTable.SysStyles("Normal").BackColor = Color.red 这样是表格变全部填充色了 --------------------------- 错误 --------------------------- 编译错误:“Grid”不是“DataTable”的成员。 错误代码：dt.DataTable.Grid.Styles("Normal").Border.Color = Color.red --------------------------- 确定 --------------------------- 下面代码也不行 Dim dt As Table For Each dt As Table In Tables dt.ListMode = True \'突出选定行 dt.DataTable.SysStyles("CurrentRow").BackColor = Color.DeepSkyBlue dt.DataTable.SysStyles("EmptyArea").BackColor = Color.White \'当前表空白区背景色 \'dt.DataTable.SysStyles("Normal").BackColor = Color.red dt.ExtendLastCol = True \'当前表自动调整列宽 \'Tables("订单").Cols("数量").Width = 150 \'当前表指定列的宽度 dt.DefaultRowHeight = 40 \'当前表自动固定行高 Next [此贴子已经被作者于2019/9/29 22:14:22编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/9/29 22:24:00 -- 注意理解代码，不要闭着眼睛用，grid是table的属性，不是datatable的。 每个对象有共同的地方，但是很多属性都是不一样的，比如单车有车把，汽车有方向盘，都是自己独有的属性。总不能说我坐上汽车，掌握好车把，开始蹬脚踏加油.....
|