以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口中SQL查询表中如何设置表样式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170098)
--  作者：ajie5211
--  发布时间：2021/7/12 14:59:00
--  [求助]窗口中SQL查询表中如何设置表样式
窗口中SQL查询表中如何设置表样式？
--  作者：有点蓝
--  发布时间：2021/7/12 15:03:00
--  
参考：http://www.foxtable.com/webhelp/topics/1577.htm
--  作者：ajie5211
--  发布时间：2021/7/12 15:17:00
--  

我想在DrawCell中设置哪个单元格为黄色，或是红色，但是不知道在哪用代码加入表样式，我在AfterLoad下加了如下代码

Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
dt.Styles("黄色").BackColor = Color.Yellow
dt.SysStyles("ModifiedCell").BackColor = Color.Yellow

在表DrawCell中加入下面代码

Dim r As Row = e.Row
If e.Row.DataRow.RowState = DataRowState.Modified Then \'且该列已经输入内容
    Dim key As String =  "订单修改临时表:" & r("FID") & ":" & r("FENTRYID") & ":" & e.Col.Name
    If tbrk.Contains(key) Then
        e.Style = "黄色" \'那么用"优秀"样式绘制单元格
    End If
End If

没有起作用。
--  作者：有点蓝
--  发布时间：2021/7/12 15:22:00
--  
窗口表是怎么绑定数据的？sqltable窗口设计绑定？fill？DataSource？
--  作者：ajie5211
--  发布时间：2021/7/12 15:24:00
--  
SQLQuery表，直接写的SQL语句，然后放开了表编辑功能。
--  作者：有点蓝
--  发布时间：2021/7/12 15:34:00
--  
Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
dt.AddUserStyle("黄色", Color.Yellow, Color.black)