主题：表结构

在表A中，有两个列，第一列名为“表”，用来存储所有表的名称，第二列名为“结构”，用于存储所有表的结构（列名和列宽）。用width方法来做。怎么写呢？

 什么意思？

看截图

 那你想问什么？如何获取各个表的列名和列宽？

是的。在命令窗口里，我目前只能取出各个表中的一列，不能取得所有列。如果用GetColVisibleWidth方法我会，但是用width不知道怎么写。

如下

 

Dim str As String = ""
For Each c As Col In Tables("表A").Cols
    str &= c.Name & "|" & iif(c.Width = -1, 20, c.Width) & "|"
Next
msgbox(str.TrimEnd("|"))

 如下

 

For Each t As Table In Tables
    Dim fdr As DataRow = DataTables("表结构").Find("表 = '" & t.Name & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表结构").AddNew
        fdr("表") = t.Name
    End If
    Dim str As String = ""
    For Each c As Col In Tables("表A").Cols
        str &= c.Name & "|" & iif(c.Width = -1, 20, c.Width) & "|"
    Next
    fdr("结构") = str.TrimEnd("|")
Next

谢谢！