老师，相同的代码，在另外一个窗口使用时，移除焦点没生效是哪儿问题？
......
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编辑过]
加好友 
发短信
Post By：2023/4/3 16:20:00 [显示全部帖子]
