Foxtable(狐表)用户栏目专家坐堂 → 当前表,突出行设置


  共有395人关注过本帖树形打印复制链接

主题:当前表,突出行设置

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1799 积分:16715 威望:0 精华:0 注册:2011/3/29 17:14:00
当前表,突出行设置  发帖心情 Post By: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.行的底色 字体色设计


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:42970 积分:218292 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 15:51:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1799 积分:16715 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By: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   '当前表自动固定行高

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:42970 积分:218292 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 17:39:00 [只看该作者]

SysStyles是datatable的属性,不是table的

dt.datatable.SysStyles("CurrentRow").BackColor = Color.White

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1799 积分:16715 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2019/9/29 19:14:00 [只看该作者]

网格线颜色设置呢  帮助找不到都是手动设置的  代码如何实现

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:42970 积分:218292 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 20:23:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100864&skin=0

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1799 积分:16715 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:42970 积分:218292 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/29 22:24:00 [只看该作者]

注意理解代码,不要闭着眼睛用,grid是table的属性,不是datatable的。

每个对象有共同的地方,但是很多属性都是不一样的,比如单车有车把,汽车有方向盘,都是自己独有的属性。总不能说我坐上汽车,掌握好车把,开始蹬脚踏加油.....

 回到顶部