以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] Excel导入如何导入布尔值?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120217)

--  作者:liujie6215
--  发布时间:2018/6/10 8:28:00
--  [求助] Excel导入如何导入布尔值?

老师您好

我有一个表时foxtable Excel导出来的,但在导入时有错误

导出的表:

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 

我的导入代码:

Dim dlg As New 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)
Tables("统计柱状图设定").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As  String = {"月结日期","年","月份","单位","名称","年计划","月计划","完成量","强制月结", "抄表电量","量补偿","单价","月结总价","汽轮机运行小时","协作窖线连续运行时间","锁定"}
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As  Row = Tables("统计柱状图设定").AddNew()
    For  m As  Integer = 0 To nms.Length - 1
        r(nms(m)) = Sheet(n,m).Value
    Next
Next
End If
 

 

导入时提示错误

 

 


 


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

 

说明:我表中“锁定”时布尔型字段,对于布尔型字段 在导入时如何处理?


--  作者:有点甜
--  发布时间:2018/6/10 22:49:00
--  
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As  Row = Tables("统计柱状图设定").AddNew()
    For  m As  Integer = 0 To nms.Length - 1
       
        If DataTables("统计柱状图设定").DataCols(nms(m)).isboolean Then
            If Sheet(n,m).Value = "1" OrElse Sheet(n,m).Value = "true" Then
                r(nms(m)) = True
            Else
                r(nms(m)) = False
               
            End If
        Else
            r(nms(m)) = Sheet(n,m).Value
        End If        
    Next
Next