导入excel的布尔列出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

导入按钮代码：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls*" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim Book As New XLS.Book(dlg.FileName) '指定数据文件

Dim Sheet As XLS.Sheet = Book.Sheets(0)

CurrentTable.StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"订单号","订单日期","评审日期","压力","口径","成品长度","内外单双","经线规格","订单数量","未派单数","备注"}

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bh As String = sheet(n,0).Text

If DataTables("订单表").Find("订单号 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单

Dim r As Row = CurrentTable.AddNew()

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = Sheet(n,m).Value

End If

CurrentTable.ResumeRedraw()

End If

附excel文件：

订单号

订单日期

评审日期

压力

口径

成品长度

内外单双

长丝

短纤

经线规格

订单数量

未派单数

总长度

备注

5B38

2016-09-30

单

TRUE

8S*4

200

6000

UL叫停

以上长丝和短纤为布尔类型，无法导入合并到数据库，求解答，谢谢

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bh As String = sheet(n,0).Text

If DataTables("订单表").Find("订单号 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单

Dim r As Row = CurrentTable.AddNew()

For m As Integer = 0 To nms.Length - 1

If nms(m) = "长丝" OrElse nms(m) = "短纤"

r(nms(m)) = IIF(Sheet(n,m).Value = 1,True,False)

Else

r(nms(m)) = Sheet(n,m).Value

End If

谢谢版主：导入逻辑列已解决。

新的问题，无法导入备注列。请帮忙解决！

附代码：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls*" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim Book As New XLS.Book(dlg.FileName) '指定数据文件

Dim Sheet As XLS.Sheet = Book.Sheets(0)

CurrentTable.StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"订单号","订单日期","评审日期","压力","口径","成品长度","内外单双","长丝","短纤","经线规格","订单数量","未派单数","备注"}

'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bh As String = sheet(n,0).Text

If DataTables("订单表").Find("订单号 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单

Dim r As Row = CurrentTable.AddNew()

For m As Integer = 0 To nms.Length - 1

If nms(m) = "长丝" OrElse nms(m) = "短纤"

r(nms(m)) = IIF(Sheet(n,m).Value = 1,True,False)

Else

r(nms(m)) = Sheet(n,m).Value

End If

CurrentTable.ResumeRedraw()

End If

主题：导入excel的布尔列出错