Foxtable(狐表)用户栏目专家坐堂 → 如何让表显示与窗口背景图一样或融合背景图问题


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

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

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


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
如何让表显示与窗口背景图一样或融合背景图问题  发帖心情 Post By:2024/3/13 10:15:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:20243.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/13 10:25:00 [只看该作者]

没有办法

 回到顶部
帅哥,在线噢!
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3047 积分:20389 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看


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


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/3/13 11:06:00 [只看该作者]

.DataSource = dt4报错提示, dt4不能访问?
.S elect( - 1,  - 1) '移除焦点行,报错.S 不是Table1成员?
[此贴子已经被作者于2024/3/13 11:07:44编辑过]

 回到顶部
帅哥,在线噢!
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3047 积分:20389 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/3/13 11:26:00 [只看该作者]

要变通啊,看看示例6
.Select( - 1,  - 1) '移除焦点行,报错.S 不是Table1成员?
不需要的你不用啊,你只看你需要的代码,美剧代码后面都有注释
[此贴子已经被作者于2024/3/13 11:27:12编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By: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


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


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/3/13 12:08:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:202433.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/13 12:18:00 [只看该作者]

表格控件没有办法透明

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


加好友 发短信
等级:五尾狐 帖子:1060 积分:7009 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/3/13 12:23:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/13 13:38:00 [只看该作者]

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

 回到顶部
总数 16 1 2 下一页