- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- select移除焦点无效 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186046)
-- 发布时间：2023/4/3 16:20:00
-- select移除焦点无效
老师，相同的代码，在另外一个窗口使用时，移除焦点没生效是哪儿问题？
......
With Tables("控制面板_Table2")
.DataSource = dt5
.Cols.Remove("查看", "所属机构", "表名", "页签名", "审批状态", "ID")
.DefaultRowHeight = 30 \'所有行高
.Cols("待办事项").TextAlign = TextAlignEnum.left
.grid.ScrollBars = 0 \'禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
.S elect( - 1, - 1) \'移除焦点行
.Theme = "(none)" \'清除表样式
.grid.rows(0).height = 0 \'隐藏表头
.grid.styles.Normal.Border.Color = Color.Silver \'表格线颜色
.grid.styles.Normal.Border.Style = 1 \'1为单线,2为双线
.grid.styles.Normal.Border.width = 0.6 \'表格线宽
.grid.styles.Normal.Border.Direction = 1 \'0为横竖线,1为横,2为竖
.grid.Styles.Normal.ForeColor = Color.DimGray \'表格字体颜色
.grid.Styles("EmptyArea").Border.Color = Color.White \'Transparent \'表格边框颜色
.DataTable.SysStyles("Focus").ForeColor = Color.Red \'焦点单元格字体颜色
.DataTable.SysStyles("EmptyArea").BackColor = Color.White \'空白区背景色
.DataTable.SysStyles("Focus").BackColor = Color.FromARGB(255, 255, 255) \'焦点单元格背景颜色
.DataTable.SysStyles("CurrentRow").BackColor = Color.FromARGB(255, 255, 255) \'当前行背景颜色
.ExtendLastCol = True \'自动列宽
End With
此主题相关图片如下：qq截图20230403162307.jpg
我用命令窗口执行又是可以的。
Tables("控制面板_Table2").S elect( - 1, - 1)
[此贴子已经被作者于2023/4/3 16:24:18编辑过]
-- 发布时间：2023/4/3 16:31:00
--
Foxtable自带的甘特图示例窗口有这么几句用法
With Tables("窗口1_Table2").Grid
.FocusRect = C1.Win.C1FlexGrid.FocusRectEnum.None \'不显示焦点框
.HighLight = C1.Win.C1FlexGrid.HighLightEnum.Never \'不高亮显示选定区
.SelectionMode = C1.Win.C1FlexGrid.SelectionModeEnum.Cell \'每次只显示一个单元格
End With
-- 发布时间：2023/4/3 17:10:00
--
这样到时达到使用效果了，之前的直接用的移除焦点也没问题。