主题：将字符列转换为数字列

逐个单元格导入，保证不会有奇怪的现象发生，以下为核心代码，供参考：

Dim nms() As String =  {"FillDate","AcceptNo","Name","Quantity","Weight","Price","Cost","Remark"}

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)
   
    DataTables(lsb).DataRows.Clear
   
    Dim r As Row
    Tables(lsb).AddNew(Sheet.Rows.Count-1)
   
    For m As Integer = 0 To nms.Length - 1
        For k As Integer = 1 To Sheet.Rows.Count -1
            r = Tables(lsb).Rows(k-1)
            r(nms(m)) = Sheet(k,m).Value
        Next
    Next
End If