做了这个代码输入后，foxtable就死机了。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你代码写到那里？试试这样写

SystemReady = False

For Each file As String In filesys .GetFiles("c:\Data")

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then

Dim Book As New XLS.Book(file)

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

Dim dr As DataRow = DataTables("报价汇总表").AddNew

dr("规格型号") = sheet(0,1).Text

dr("报价") = sheet(5,2).text

dr("美元每米") = sheet(6,3).text

dr("利润点") = sheet(7,3).text

End If

SystemReady = True

主题：做了这个代码输入后，foxtable就死机了。