主题：[求助] 导入逻辑字段怎么写。

    我用的是这个代码导入excel表格。

           Dim dlg As New OpenFileDialog
    dlg.Filter= "Excel文件|*.xls;*.xlsx"
  If dlg.ShowDialog = DialogResult.Ok Then
    'MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim colNames As New List(Of String)
    For i As Integer = 0 To sheet.Cols.Count - 1
        colNames.Add(sheet(0, i).Text)
    Next
  
    Dim dt As DataTable = DataTables("机电设备表")
    For i As Integer = 1 To sheet.Rows.Count - 1
        If dt.Find("序号 = '" & sheet(i, 0).Text & "'") Is Nothing Then
            Dim ndr As DataRow = dt.AddNew
            For j As Integer = 0 To sheet.Cols.Count - 1
                ndr(colNames(j)) = sheet(i, j).Text
            Next
        End If
    Next
End If

                  可遇到字段是日期和逻辑型的字段时。提示我出错。我该在Excel表中如何设置相应的字段的格式啊？

    将表：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:11.xls

     利用窗口1中的“导入”控件，导入到项目中的表中。项目为：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar