以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口中表的网格线颜色深浅  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94256)
--  作者：lk15502
--  发布时间：2016/12/20 9:10:00
--  关于窗口中表的网格线颜色深浅
窗口中的表的网格线，在有些电脑颜色非常浅，几乎看不清，有xp,有win7，找不到原因，像我上传的例子，在其他电脑颜色很浅，网格线几乎看不清，在我开发系统的笔记本正常，请老师帮忙查找原因？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计划配缸通知单.table
--  作者：狐狸爸爸
--  发布时间：2016/12/20 9:25:00
--  
默认是一个很浅的灰色，一些对比度的不高的电脑看不清楚是正常的。

颜色设置深一些吧：

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计划配缸通知单.table
--  作者：lk15502
--  发布时间：2016/12/20 11:15:00
--  
狐爸，我打印的都是sqltable表，正本表颜色设置了深色，在有一些电脑上，sqltable还是淡，有什么解决的办法吗？
--  作者：有点色
--  发布时间：2016/12/20 11:20:00
--  

 用代码设置

 

Tables("表A").grid.styles.Normal.Border.Color = Color.Red
Tables("表A").grid.styles.Normal.Border.Style = 1
Tables("表A").grid.styles.Normal.Border.width = 5
Tables("表A").grid.styles.Normal.Border.Direction = 0 \'0-2
--  作者：lk15502
--  发布时间：2016/12/20 11:29:00
--  
能不能，解释一下代码的意思?,代码放在哪里？谢谢！
--  作者：lk15502
--  发布时间：2016/12/20 11:32:00
--  
我只需要把网格线设置成黑色
--  作者：狐狸爸爸
--  发布时间：2016/12/20 11:40:00
--  
放在窗口的Afterload事件中：

Tables("窗口1_Table1").grid.styles.Normal.Border.Color = Color.black

红色改为实际的表名和列名。
--  作者：lk15502
--  发布时间：2016/12/20 11:50:00
--  
4楼余下的代码是什么意思？
--  作者：有点色
--  发布时间：2016/12/20 11:55:00
--  
以下是引用lk15502在2016/12/20 11:29:00的发言：
能不能，解释一下代码的意思?,代码放在哪里？谢谢！

 

写到你窗口AfterLoad事件

 

Dim t As Table = e.Form.Controls("Table1").Table

t.grid.styles.Normal.Border.Color = Color.Black
t.grid.styles.Normal.Border.width = 3