[求助]引用视图属性 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，怎样引用视图表的视图属性设置列宽，谢谢老师！

Dim tj As String = "Select * Fro m {" & e.sender.text & "}"

Dim c1 As String

If e.Sender.Text = "数据汇总" Then

c1 = "编号,54|抄表日期,78|项目,47|项目ID,94|年,38|月,24"

End If

Tables("数据汇总_Table5").Fill(tj,"数据库", False) '加载Table

Functions.Execute("DataList",Tables("数据汇总_Table5"),c1) '显示列表

Tables("数据汇总_Table5").ShowCheckBox = True

老师下面代码是在其他窗口引用的代码设置列宽

dr = DataTables("视图").Find("视图名 = '数据汇总'")

If dr IsNot Nothing Then '如果找到的话

Tables("数据汇总_Table5").SetColVisibleWidth(dr("视图属性"))

End If

主题：[求助]引用视图属性