Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]引用视图属性


  共有39人关注过本帖树形打印复制链接

主题：[求助]引用视图属性
帅哥，在线噢！
苏州老街
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：5458 威望：0 精华：0 注册：2016/10/19 16:45:00 		[求助]引用视图属性  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：5458 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/4/27 14:23:00 [显示全部帖子]

Dim dr As DataRow
 回到顶部
帅哥，在线噢！
苏州老街
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：5458 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/4/27 14:55:00 [显示全部帖子]

编号|54|抄表日期|78|项目|47|项目ID|94|年|38|月|24
[此贴子已经被作者于2025/4/27 15:22:30编辑过]
 回到顶部
帅哥，在线噢！
苏州老街
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：5458 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：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
End If
Tables("数据汇总_Table5").Fill(tj1,"数据库", False)                  '加载Table
Functions.Execute("DataList",Tables("数据汇总_Table5"),c1)           '显示列表
Tables("数据汇总_Table5").ShowCheckBox = True                        '在行号列显示复选框
 回到顶部
帅哥，在线噢！
苏州老街
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：5458 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：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
Next
 回到顶部
帅哥，在线噢！
苏州老街
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：5458 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/4/27 17:37:00 [显示全部帖子]

.NET Framework 版本：2.0.50727.9179
Foxtable 版本：2017.4.22.1
错误所在事件：自定义函数DataList
详细错误信息：
调用的目标发生了异常。
未设置对象变量或 With 块变量。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询