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

做个窗口,放入一个表控件,做一个按钮测试:

Dim TableName as string = "窗口1_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)

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

Tables(TableName).ResumeRedraw()

为什么我按照一样写一点就卡死掉~

窗口名称叫当天配送会员窗口加了个 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)

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

Tables(TableName).ResumeRedraw()

End If

一点按钮就卡死了？？

Dim TableName As String = "窗口2_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
End If
Tables(TableName).ResumeRedraw()

请教楼主，如何与外部表对比后导入不重复的记录？

主题：[分享] 窗口表导入EXCEL数据