- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]SQLTable 窗体表颜色设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176417)
-- 发布时间：2022/4/12 17:21:00
-- [求助]SQLTable 窗体表颜色设置
Tables(e.Form.Name & "_Table1").ForeColor = Color.red
出来的结果如下图。
此主题相关图片如下：无标题20220412.png
[此贴子已经被作者于2022/4/12 17:23:20编辑过]
-- 发布时间：2022/4/12 17:35:00
--
单元格颜色只能使用绘制的方法，参考：http://www.foxtable.com/webhelp/topics/0656.htm
-- 发布时间：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
-- 发布时间：2022/4/14 20:11:00
--
设置颜色的代码要放到DrawCell 事件，不会就上传实例
-- 发布时间：2022/4/14 20:42:00
--
此主题相关图片如下：无标题20220414011.png
老师，已经放在Drawcell中了。
[此贴子已经被作者于2022/4/14 21:05:26编辑过]
-- 发布时间：2022/4/14 21:09:00
--
首先窗口表控件没有绑定任何表
其次要设定哪一行的，或者哪个单元格的颜色？
-- 发布时间：2022/4/14 22:37:00
--
其次要设定哪一行的，或者哪个单元格的颜色？ ===》想整个表都变。看帮助有以下的介绍 DrawCell事件使用自定义样式来标记单元格。 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
-- 发布时间：2022/4/14 23:25:00
--
那么做例子请做完整，起码可以测试，而不是随便上一个不知所云的文件。
