FileSys.DeleteFile("d:\test.mdb", 2, 2)
Dim ex As New Exporter
ex.SourceTableName = "主表" '指定导出表
ex.filepath = "d:\test.mdb" '指定目标文件
ex.Filter = "用户 = 'ar'"
ex.Export() '开始导出
Dim nums As String = DataTables("主表").GetComboListString("编号", "用户 = 'ar'")
nums = "'" & nums.Replace("|", "','") & "'"
ex = new Exporter
ex.SourceTableName = "关联表"
ex.FilePath = "d:\test.mdb"
ex.Filter = "编号 in (" & nums & ")"
ex.Export()
ex = new Exporter
ex.SourceTableName = "非关联表"
ex.FilePath = "d:\test.mdb"
ex.Filter = "编号 in (" & nums & ")"
ex.Export()
加好友 
发短信
Post By：2020/2/9 21:53:00 [显示全部帖子]
