以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口绑定的是关联表“A_B”,其“备注列”和“规格列”自动调整行高,怎么写代码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96062)

--  作者:fengwenliuyan
--  发布时间:2017/2/12 11:00:00
--  [求助]窗口绑定的是关联表“A_B”,其“备注列”和“规格列”自动调整行高,怎么写代码?
我在窗口afterload事件中写上以下代码:
If e.Col.Name = "备注" Then
    e.Table.AutoSizeRow(e.Row.Index)
End If
If e.Col.Name = "规格" Then
    e.Table.AutoSizeRow(e.Row.Index)
End If
结果提示错误:
"col"不是“formeventargs”的成员。
错误代码:If e.Col.Name = "备注" Then

求指正,谢谢!
[此贴子已经被作者于2017/2/12 11:03:52编辑过]

--  作者:有点色
--  发布时间:2017/2/12 11:18:00
--  
dim t as table = tables("A_B")
t.AutoSizeRows

--  作者:fengwenliuyan
--  发布时间:2017/2/12 13:06:00
--  这样子,表的列标题也会随着一起自动换行了,希望不影响列标题,所以才想直接对某列的行高进行设置?
这样子,表的列标题也会随着一起自动换行了,希望不影响列标题,所以才想直接对某列的行高进行设置?
--  作者:fengwenliuyan
--  发布时间:2017/2/12 14:05:00
--  测试结果显示,不存在表“A_B”?
测试结果显示,不存在表“A_B”?
--  作者:有点色
--  发布时间:2017/2/12 16:01:00
--  
Dim t As Table = Tables("A.B")
Dim tmp As String = t.getColVisibleWidth
t.AutoSizeRows
t.SetColVisibleWidth(tmp)