以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提取数据填入表格内  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153072)
--  作者：dycwylb
--  发布时间：2020/7/30 11:51:00
--  提取数据填入表格内
提取数据表名及每个数据表的列名分别填入一个表的单元格内
代码如下
For Each tb As DataTable In DataTables
    Dim bm As String = tb.Name
    Dim i As Integer = -1
    For Each Rm As DataCol In DataTables(tb.Name).DataCols
        i= i+ 1
        Dim lm As String = Rm.Name
        Tables("授权表").AddNew()
        Tables("授权表").Rows(i)("表名") = bm
        Tables("授权表").Rows(i)("列名") = lm
    Next
Next
效果不对，请老师指正一代码
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20200730114814.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/7/30 12:48:00
--  
For Each tb As DataTable In DataTables
    Dim bm As String = tb.Name
    For Each Rm As DataCol In DataTables(tb.Name).DataCols
        Dim lm As String = Rm.Name
        dm r as row = Tables("授权表").AddNew()
        r("表名") = bm
        r("列名") = lm
    Next
Next