以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表样式为什么不能生效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184787)
--  作者：chen_sheng
--  发布时间：2023/1/3 11:04:00
--  表样式为什么不能生效
想设置当前行的背景色  其他窗口代码没有问题  这个窗口就是设置不了当前行的背景色  寻求官方协助 谢谢

Tables(e.Form.name & "_Table1").Fill("S  elect * From { 档案}","主数据源",False)
Functions.Execute("窗口_表样式",e.Form.name & "_Table1")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree(e.Form.name & "_Table1","产品编号","分类", ".")
trv.Nodes.Insert("显示所有行",0)
Tables(e.form.name & "_Table1").Sort = "产品编号"
Tables(e.form.name & "_Table1").AutoSizeCols()
DataTables(e.form.name & "_Table1").DataCols("专用客户集合").ExtendType = ExtendTypeEnum.Values
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.C
        cmd.CommandText = " S ELECT DISTINCT 部门     FROM     SYS_用户管理    WHERE    (ISNULL(部门, N\'\') <> \'\') "
        dt = cmd.ExecuteReader
Tables(e.form.name & "_Table1").Cols("专用客户集合").ComboList = dt.GetComboListString("部门")

DataTables(e.form.name & "_Table1").SysStyles("CurrentRow").BackColor = Color.LawnGreen
--  作者：有点蓝
--  发布时间：2023/1/3 11:19:00
--  
Tables(e.form.name & "_Table1").ListMode=true
DataTables(e.form.name & "_Table1").SysStyles("CurrentRow").BackColor = Color.LawnGreen