专家坐堂-如果表和字段名是英文，标题是中文，如何导出中文excl数据Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

2.我想导出excl中含有 indentify 这个默认的关键字列，如何导出？

3.下面代码，我想导入的是中文列名的excl。是不是只要把Dim excel列() As String = {"proclass", "probrand", "probar","procode","proname","momunit","sonunit","unitno","sourcetype","prospecs","timesafe","prostate","checkbar","商品ID"} 这个列名改成我想要的中文就行了？

Dim dt As DataTable = DataTables("rs_productinfo")

Dim 列名() As String = {"proclass", "probrand", "probar","procode","proname","momunit","sonunit","unitno","sourcetype","prospecs","timesafe","prostate","checkbar","proid"}

Dim excel列() As String = {"proclass", "probrand", "probar","procode","proname","momunit","sonunit","unitno","sourcetype","prospecs","timesafe","prostate","checkbar","商品ID"}

Dim Result As DialogResult

Result = MessageBox.Show("确定要导入吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Dim dlg As New OpenFileDialog

dlg.Filter = "Excel文件|*.xls"

dlg.MultiSelect = True \'允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets("商品信息")

dt.ResumeRedraw()

dt.StopRedraw()

\'systemready = False