主题：生成相关表

想根据表A的内容生成不同的表

 

表名取  表名列

列名取 列名列

列内容 取 “总表”对应的列

 

谢谢老师

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.foxdb

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.foxdb

 谢谢大红袍老师~~~~看了代码了。又有了一种新思路。呵呵

我想实现的功能是当点击“表A” 表名 列时
按照 “取值列” 加载显示总表， 同时按照“列名”列 显示加载的列标题，
这样我就可以实现用户自动添加报表功能了。
老师辛苦了

 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