Foxtable(狐表)用户栏目专家坐堂 → [求助] 导入逻辑字段怎么写。


  共有3624人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
fengyungongzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:291 积分:2330 威望:0 精华:0 注册:2012/12/26 10:12:00
[求助] 导入逻辑字段怎么写。  发帖心情 Post By:2014/3/1 16:06:00 [只看该作者]

    我用的是这个代码导入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表中如何设置相应的字段的格式啊?

[此贴子已经被作者于2014-3-1 16:06:27编辑过]

 回到顶部
总数 11 1 2 下一页