以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CurrentTable.grid.cols代码报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82785)

--  作者:一笑
--  发布时间:2016/3/24 17:26:00
--  CurrentTable.grid.cols代码报错
在窗口的afterload写入以下代码:
e.form.Controls("Table1").Select
CurrentTable.grid.cols("章节").textalign = 0
报错

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图16年03月24日1725_1.png
图片点击可在新窗口打开查看
求解谢谢

--  作者:大红袍
--  发布时间:2016/3/24 17:29:00
--  
那只能是你列名写错了
--  作者:大红袍
--  发布时间:2016/3/24 17:32:00
--  

e.form.Controls("Table1").Select 在afterLoad那里的时候,可能还没生效。

 

你这样写吧

 

e.form.Controls("Table1").Select
e.form.Controls("Table1").Table.grid.cols("章节").textalign = 0

--  作者:一笑
--  发布时间:2016/3/25 10:10:00
--  
不报错了。
但另外代码(AutoSizeRows(),AllowMerge)没反应,是不是无法确定当前表?求解,谢谢
e.form.Controls("Table1").Select
CurrentTable.AllowMerge = True
CurrentTable.AutoSizeRows()

--  作者:大红袍
--  发布时间:2016/3/25 10:40:00
--  

难道就不能写?

 

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

t.AllowMerge = True
t.AutoSizeRows()