主题：[求助]

把数据导入到foxtable，如

http://www.foxtable.com/webhelp/scr/2492.htm

类似代码

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    For i As Integer = 2 To sheet.rows.count-1
        msgbox("一个用户")
        msgbox(sheet(i, 0).text)
        msgbox(sheet(i, 1).text)
    Next
End If

http://www.foxtable.com/webhelp/scr/2137.htm