大师：为何下面的代码不能导出？Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv1.SelectedNode IsNot Nothing And trv1.SelectedNode.Level = 0 Then
For Each nod As WinForm.TreeNode In trv1.SelectedNode.Nodes
Dim q As new OuterTableBuilder
q.TableName = nod.Name
q.ConnectionName = trv1.SelectedNode.Name
q.SelectString = "S——elect * Fr_om {" & nod.Name & "}"
q.Build
Next
End If
For Each nod As WinForm.TreeNode In trv1.SelectedNode.Nodes
bjh.Add(nod.Name)
Next
For Each bj As String In bjh If DataTables.Contains(bj) = True Then
MessageBox.Show(bj)
Dim ex As New Exporter
ex.SourceTableName = bj '指定导出表
ex.FilePath = ProjectPath & "\系统文件\" & "mgsmodel" & ".accdb" '指定目标文件
ex.Format = "Access2007" '导出格式为Access 2007
ex.PassWord = "128"
ex.Export() '开始导出
End If
Next
为什么连接"mgsmodel" & ".accdb"这个文件后，里面一张表没有？
加好友 
发短信
Post By：2018/4/3 11:38:00 [显示全部帖子]
