Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]SQLTable 窗体表颜色设置


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

主题：[求助]SQLTable 窗体表颜色设置
帅哥哟，离线，有人找我吗？
2900819580
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1312 积分：9533 威望：0 精华：0 注册：2015/6/30 8:46:00 		[求助]SQLTable 窗体表颜色设置  发帖心情 Post By：2022/4/12 17:21:00 [只看该作者]

        Tables(e.Form.Name & "_Table1").ForeColor = Color.red 
出来的结果如下图。


图片点击可在新窗口打开查看此主题相关图片如下：无标题20220412.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/4/12 17:23:20编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107182 积分：545159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/12 17:35:00 [只看该作者]

单元格颜色只能使用绘制的方法，参考：http://www.foxtable.com/webhelp/topics/0656.htm

 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1312 积分：9533 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2022/4/14 17:48:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：无标题20220414.png
图片点击可在新窗口打开查看
tb.DataTable.GlobalHandler.DrawCell = True
tb.DataTable.AddUserStyle("红单", Color.Ivory, Color.red)
tb.DataTable.AddUserStyle("黑单", Color.Black, Color.white)

If e.Form.Controls("Txt正负ID").text > 0 Then
    tb.DataTable.Styles("黑单")
Else
    tb.DataTable.Styles("红单")
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107182 积分：545159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/14 20:11:00 [只看该作者]

设置颜色的代码要放到DrawCell 事件，不会就上传实例

 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1312 积分：9533 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2022/4/14 20:42:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



图片点击可在新窗口打开查看此主题相关图片如下：无标题20220414011.png
图片点击可在新窗口打开查看
老师，已经放在Drawcell中了。

[此贴子已经被作者于2022/4/14 21:05:26编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107182 积分：545159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/14 21:09:00 [只看该作者]

首先窗口表控件没有绑定任何表

其次要设定哪一行的，或者哪个单元格的颜色？
 回到顶部
帅哥哟，离线，有人找我吗？
2900819580
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1312 积分：9533 威望：0 精华：0 注册：2015/6/30 8:46:00 		  发帖心情 Post By：2022/4/14 22:37:00 [只看该作者]

其次要设定哪一行的，或者哪个单元格的颜色？ ===》想整个表都变。看帮助有以下的介绍

DrawCell事件使用自定义样式来标记单元格。
每个DataTable都有Styles集合，用于获得指定名称的自定义样式，例如：

DataTables("成绩表").Styles("不及格")

表示成绩表的不及格样式。

首先窗口表控件没有绑定任何表  ===》 用以下代码加载进来的
Dim tb As Table = Tables(e.Form.Name & "_Table1")

Dim dt As DataTable = tb.DataTable
Dim sdt As DataTable
Dim cmd As new SQLCommand
cmd.C
If e.Form.Controls("TxtSN").text > 0 Then
    cmd.CommandText = "sel ect * from {KC_JCCZB} where Itid = " & e.Form.Controls("TxtSN").text
Else
    cmd.CommandText = "sele ct * from {KC_JCCZB} where [_Identify] Is null"
End If
tb.DataSource = cmd.ExecuteReader
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107182 积分：545159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/14 23:25:00 [只看该作者]

那么做例子请做完整，起码可以测试，而不是随便上一个不知所云的文件。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (1).zip
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询