- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 生成相关表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72178)
-- 发布时间：2015/7/24 20:21:00
-- 生成相关表
想根据表A的内容生成不同的表
表名取 表名列
列名取 列名列
列内容 取 “总表”对应的列
谢谢老师
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.foxdb |
-- 发布时间：2015/7/26 11:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目7.foxdb |
-- 发布时间：2015/7/26 22:26:00
--
谢谢大红袍老师~~~~看了代码了。又有了一种新思路。呵呵
我想实现的功能是当点击“表A” 表名 列时
按照 “取值列” 加载显示总表， 同时按照“列名”列 显示加载的列标题，
这样我就可以实现用户自动添加报表功能了。
老师辛苦了
-- 发布时间：2015/7/27 9:35:00
--
Click事件
If e.Col.Name = "表名" Then
Dim r As Row = e.Row
Dim dtb As New DataTableBuilder("temp" & r("表名"),r("表名") )
Dim ary1() As String = r("列名").split(",")
Dim ary3() As String = r("取值列").split(",")
Dim str As String = "select [_Identify],"
For i As Integer = 0 To ary1.Length -1
str &= ary3(i) & " as " & ary1(i) & ","
Next
str = str.trim(",") & " fr-om {总表}"
msgbox(str)
DataTables("临时").Fill(str, False)
End If