专家坐堂-[求助]导入表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As New OpenFileDialog \'定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xlsx;*.xls" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

\'导入前先删除所有行

Dim x As Integer

For x=0 To DataTables("顺丰账务总表").DataRows.count - 1

Tables("顺丰账务总表").Current.Delete

\'导入数据

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

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("顺丰账务总表").StopRedraw()

\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"序号","日期","运单号码","对方地区","对方公司名称","计费重量","产品类型","付款方式","费用(元)","折扣/促销","应付金额","经手人","增值费用"}

\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

For n As Integer = 1 To Sheet.Rows.Count -1

Dim r As Row = Tables("顺丰账务总表").AddNew()

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = Sheet(n,m).Value

Tables("顺丰账务总表").ResumeRedraw()

End If

这里面能不能调用高速导入呢? 要怎么调用呢? 谢谢各位大神指点一下!!!