- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]引用视图表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194935)
-- 发布时间：2025/2/7 17:24:00
-- [求助]引用视图表
老师新年好！黄色标出视图设置怎样直接引用“视图"表"视图属性"列的数据。
-- 发布时间：2025/2/7 17:30:00
--
http://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
-- 发布时间：2025/2/8 4:10:00
--
谢谢老师
-- 发布时间：2025/2/8 4:13:00
--
老师，标出的能引用视图表的数据吗。
Tables("总账_Table1").Fill("Select [_Identify],[编号],[入账编号],[交易_时间] Fro m {总账}","数据库",True)
[此贴子已经被作者于2025/2/8 4:13:25编辑过]
-- 发布时间：2025/2/8 9:01:00
--
Tables("总账_Table1").Fill("Select [_Identify]," & dr("某某列") & " Fro m {总账}","数据库",True)
-- 发布时间：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
-- 发布时间：2025/2/8 14:12:00
--
sql和SetColVisibleWidth使用的是不同的格式，是无法通用的
Tables("总账_Table1").Fill("Select [_Identify],[编号],[入账编号],[交易_时间] Fro m {总账}","数据库",True)
Tables("财务_Table1").SetColVisibleWidth("编号|64|入账编号|96”）
-- 发布时间：2025/2/8 14:41:00
--
老师，上面视图名写错了。下面报错
Tables("总账_Table1").Fill("Select [_Identify]" & dr("视图属性") & " Fro m {收入支出总账单}","数据库",True)
此主题相关图片如下：2025-02-08 15 58 03.png
[此贴子已经被作者于2025/2/8 16:05:55编辑过]
-- 发布时间：2025/2/8 15:54:00
--
看5楼，少个逗号
-- 发布时间：2025/2/8 16:43:00
--
好了，谢谢老师