试试
With Tables("主窗口_Table1")
.DataSource = dt4
.Cols.Remove("发布机构","发布部门","类别","主题","通知部门","内容","登记状态","登记人","登记日期","备注")
.DefaultRowHeight = 25 '所有行高
.Cols("发布日期").TextAlign = TextAlignEnum.Center '发布日期列数据居中
.grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
.Theme = "(none)" '清除表样式
.Select(-1,-1) '移除焦点行
.grid.rows(0).height = 0 '隐藏表头
.grid.Styles("EmptyArea").Border.Color = Color.White '表格边框颜色
.DataTable.SysStyles("CurrentRow").ForeColor = Color.Red '当前行字体颜色
.DataTable.SysStyles("Focus").ForeColor = Color.Red '焦点单元格字体颜色
.DataTable.SysStyles("EmptyArea").BackColor = Color.White '空白区背景色
.DataTable.SysStyles("Alternate").BackColor = Color.Azure '交替行颜色
'.DataTable.SysStyles("CurrentRow").BackColor = Color.Transparent '当前行背景颜色
.Refresh
End With
加好友 
发短信
Post By：2021/6/22 19:43:00 [显示全部帖子]
