共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]引用视图表
1楼
苏州老街 发表于：2025/2/7 17:24:00老师新年好！黄色标出视图设置怎样直接引用“视图"表"视图属性"列的数据。
2楼
有点蓝 发表于：2025/2/7 17:30:00http://www.foxtable.com/webhelp/topics/0396.htm
Dim dr As DataRow
dr = DataTables("视图").Find("表名称='财务_Table1'")
dr = DataTables("视图").Find("表名称='财务_Table1'")
If dr IsNot Nothing Then '如果找到的话
Tables("财务_Table1").SetColVisibleWidth(dr("视图属性")）
End If
Tables("财务_Table1").SetColVisibleWidth(dr("视图属性")）
End If
3楼
苏州老街 发表于：2025/2/8 4:10:00谢谢老师
4楼
苏州老街 发表于：2025/2/8 4:13:00老师，标出的能引用视图表的数据吗。
Tables("总账_Table1").Fill("Select [_Identify],[编号],[入账编号],[交易_时间] Fro m {总账}","数据库",True)
[此贴子已经被作者于2025/2/8 4:13:25编辑过]
5楼
有点蓝 发表于：2025/2/8 9:01:00Tables("总账_Table1").Fill("Select [_Identify]," & dr("某某列") & " Fro m {总账}","数据库",True)
6楼
苏州老街 发表于：2025/2/8 13:54:00老师，黄色标出的代码不显示数据，红色的是可以设置列宽的。
Dim dr As DataRow
dr = DataTables("视图").Find("视图名 = '总账1'")
If dr IsNot Nothing Then '如果找到的话
Tables("收付总账_Table1").Fill("Select [_Identify]" & dr("视图属性") & " Fro m {收入支出总账单}","数据库",True)
End If
dr = DataTables("视图").Find("视图名 = '总账'")
If dr IsNot Nothing Then '如果找到的话
Tables("收付总账_Table1").SetColVisibleWidth(dr("视图属性"))
End If
7楼
有点蓝 发表于：2025/2/8 14:12:00sql和SetColVisibleWidth使用的是不同的格式，是无法通用的
Tables("总账_Table1").Fill("Select [_Identify],[编号],[入账编号],[交易_时间] Fro m {总账}","数据库",True)
Tables("财务_Table1").SetColVisibleWidth("编号|64|入账编号|96”）
8楼
苏州老街 发表于：2025/2/8 14:41:00老师，上面视图名写错了。下面报错
此主题相关图片如下：2025-02-08 15 58 03.png
Tables("总账_Table1").Fill("Select [_Identify]" & dr("视图属性") & " Fro m {收入支出总账单}","数据库",True)
此主题相关图片如下：2025-02-08 15 58 03.png[此贴子已经被作者于2025/2/8 16:05:55编辑过]
9楼
有点蓝 发表于：2025/2/8 15:54:00看5楼，少个逗号
10楼
苏州老街 发表于：2025/2/8 16:43:00好了，谢谢老师
共10 条记录, 每页显示 10 条, 页签:
[1]