为什么我按照一样写 一点就卡死掉~
窗口名称叫 当天配送会员窗口 加了个 Table 名称是默认的Table1 然后加了个button控件 下面是写在Click事件里面的~
Dim TableName As String = "当天配送会员窗口_Table1"
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables(TableName).StopRedraw()
Dim dtb As New DataTableBuilder("统计")
For n1 As Integer = 1 To Sheet.Cols.Count - 1
dtb.AddDef(Sheet(0, n1).Text, Gettype(String), 32)
Next
Tables(TableName).DataSource = dtb.BuildDataSource
For n As Integer = 1 To Sheet.Rows.Count - 1
Dim bh As String = Sheet(n, 0).Text
Dim dr As Row = Tables(TableName).AddNew()
For m As Integer = 0 To Tables(TableName).Cols.Count - 1
dr(Tables(TableName).Cols(m)) = Sheet(n, m).Value
Next
Next
Tables(TableName).ResumeRedraw()
End If
一点按钮就卡死了？？
加好友 
发短信
Post By：2014/6/27 23:39:00 [显示全部帖子]
