- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 记录窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90314)
-- 发布时间：2016/9/9 14:20:00
-- 记录窗口
大师：记录窗口如何设置列的宽度？
-- 发布时间：2016/9/9 14:53:00
--
窗口控件的话:
e.form.Controls("xxx").BaseControl.Cols(0).Width = 200
-- 发布时间：2016/9/9 18:29:00
--
谢谢！
-- 发布时间：2016/9/9 18:45:00
--
大师：为什么红色部分代码错误？
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
\'rgd.BaseControl.Cols(0).Width = 200
e.Form.Controls("RecordGrid1").BaseControl.Cols(0).Width = 200
-- 发布时间：2016/9/9 18:51:00
--
就用：
e.Form.Controls("RecordGrid1").basecontrol.cols(0).Width = 200
或者：
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
Dim grd As object = rgd.BaseControl
grd.Cols(0).Width = 200
-- 发布时间：2016/9/9 18:56:00
--
大师：下面的代码列宽设置就无效？为什么？
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Vars("tbname") ‘--表变量--
e.Form.Controls("RecordGrid1").BaseControl.Cols(0).Width = 350
rgd.Build()
-- 发布时间：2016/9/9 19:13:00
--
如果你学了.net，那么你会明白为什么。
如果没有学.net，我费力的解释没有任何意义。
我给你方法，你照做就行了。
-- 发布时间：2016/9/9 19:38:00
--
就是按您的方法做的，不能改变呀？
-- 发布时间：2016/9/9 19:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目278.table |
-- 发布时间：2016/9/10 8:35:00
--
Build后会重置
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Vars("tbname") ‘--表变量--
rgd.Build()
e.Form.Controls("RecordGrid1").BaseControl.Cols(0).Width = 350