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

老师好！我将原来的数据库导入，发现很多数字列被狐表自动转换为字符列，造成无法统计

 呃，你导入的是excel表格？如果你那一列为全数字的话，不可能转成字符列的。

 

 请做例子发上看看，或者把数据弄上来看看。

备份Excel文件，删除标题行（前几行不能有字符型文字），重新导入！

对了，狐表项目文件已保存了的话，里面的表仍需手工处理！

谢谢！我还是希望在狐表中处理，我试过在电子表格中处理，然后倒入，但是导入导入都是空白的

 数据发上来

搜一下，我发过帖子，按条件导入，判断其为非数字时，跃过导入下一行！

大家好！根据一天的实验，暂时发现，先导出电子表格，删除数据，用一些无效的文本和数字填写在第一行（不包括标题行），用狐表导入（我发现最快的生成表的方法，特别是对于字段多的表格），删除无效数据，直接将数据源的数据复制到新表，文本格式的数字自动转换为数字格式的数字，狐表真的强大。

 不理解你什么意思，直接导入。

 

 如果要修改表结构，参考http://www.foxtable.com/help/topics/2122.htm

 

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

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