改成
Dim cls As List(Of String)cls = DataTables("项目").GetUniqueValues("", "名称")
Dim dtb As New DataTableBuilder("项目查询")For Each cl As String In cls '逐列取值 dtb.AddDef(cl, Gettype(String), 32)Nextdtb.Build()MainTable= Tables("项目查询")