共11 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

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

1楼

苏州老街 发表于：2025/4/27 7:06:00

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

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

2楼

有点蓝 发表于：2025/4/27 8:38:00

dr("视图属性")存储的是什么内容？

3楼

苏州老街 发表于：2025/4/27 14:23:00

Dim dr As DataRow

4楼

有点蓝 发表于：2025/4/27 14:24:00

"视图属性"这个列单元格存储的是什么内容！！

5楼

苏州老街 发表于：2025/4/27 14:55:00

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

[此贴子已经被作者于2025/4/27 15:22:30编辑过]

6楼

有点蓝 发表于：2025/4/27 15:22:00

把逗号都改为竖线

编号|54|抄表日期|78|..........

帮助多看看：http://www.foxtable.com/webhelp/topics/1775.htm

7楼

苏州老街 发表于：2025/4/27 15:53:00

老师，下面设置的代码报错。

Dim tj1 As String = "Select * Fr om {" & e.sender.text & "}"

'Dim c1 As String

Dim c1 As DataRow

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

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

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

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

End If

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

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

Tables("数据汇总_Table5").ShowCheckBox = True '在行号列显示复选框

8楼

有点蓝 发表于：2025/4/27 16:09:00

报什么错？

9楼

苏州老街 发表于：2025/4/27 17:36:00

老师，内部函数报错

Dim i As Integer = 0

Dim ColName As String

Dim Vals As New List(Of String)

Vals.AddRange(Args(1).Split("|"))

For Each Val As String In Vals

ColName = Val.substring(0,Val.indexof(",")) '取得列名称

Args(0).Cols(ColName).Move(i) '移动位置

Args(0).Cols(ColName).Width = Val.substring(Val.indexof(",")+1) '设置宽度

i = i + 1

10楼

苏州老街 发表于：2025/4/27 17:37:00

.NET Framework 版本：2.0.50727.9179

Foxtable 版本：2017.4.22.1

错误所在事件：自定义函数DataList

详细错误信息：

调用的目标发生了异常。

未找到类型“DataRow”的公共成员“Contains”。

[此贴子已经被作者于2025/4/27 19:40:30编辑过]

共11 条记录, 每页显示 10 条, 页签: [1] [2]