Dim c_m——d As New S——QLCommand
Dim dt As DataTable
c_md.C
c_md.CommandText = "S__ELECT * From {GLVch}"
dt = c_md.ExecuteReader()
Dim tb As WinForm.Table = e.Form.Controls("Table1")
tb.Table.DataSource = dt
MessageBox.Show(tb.Table.name)
MessageBox.Show(tb.Table.DataTable.name)
Dim ex As New Exporter
MessageBox.Show(0)
ex.SourceTableName = tb.Table.name '指定导出表
MessageBox.Show(1)
ex.FilePath = "d:\测试\" '指定目标文件路径
MessageBox.Show(2)
ex.Format = "Fixed" '导出格式为固定宽度的文本文件
MessageBox.Show(3)
ex.NewTableName = "导出文本1" '指定文件名,注意无须扩展名
MessageBox.Show(4)
ex.Export() '开始导出
MessageBox.Show(5)
加好友 
发短信
Post By：2019/11/5 17:50:00 [显示全部帖子]
