想设置当前行的背景色 其他窗口代码没有问题 这个窗口就是设置不了当前行的背景色 寻求官方协助 谢谢
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
加好友 
发短信
Post By：2023/1/3 11:04:00 [只看该作者]
