Foxtable(狐表)用户栏目专家坐堂 → 导入excel合并数据是提示该字符串未被识别为有效的布尔值(已解决)!


  共有2053人关注过本帖树形打印复制链接

主题:导入excel合并数据是提示该字符串未被识别为有效的布尔值(已解决)!

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


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
导入excel合并数据是提示该字符串未被识别为有效的布尔值(已解决)!  发帖心情 Post By:2018/11/2 13:28:00 [只看该作者]

老师好,我用论坛里的这段代码导入合并数据到表时,提示这个错误,我的excel表里面有逻辑列,不知道怎样才能把这个给转换修正一下掉!

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog =DialogResult.OK Then
    Dim t As Table = Tables("数据表")
    't.StopRedraw()
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Dim newcount As Integer = 0
    Dim oldcount As Integer = 0
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As DataRow = t.DataTable.Find("编号 = '" & sheet(n, 1).text & "'")
        If r Is Nothing Then
            r = t.DataTable.AddNew()
            newcount += 1
        Else
            oldcount += 1
        End If
        For i As Integer = 0 To sheet.Cols.Count -1
            Dim cname As String = sheet(0, i).text
            If t.Cols.Contains(cname) Then
                r(cname) = sheet(n, i).Text
            End If
        Next
    Next
    msgbox("新增" & newcount & "    " & "更新旧数据" & oldcount)
    't.ResumeRedraw()
End If


提示错误如下:

.NET Framework 版本:2.0.50727.8670
Foxtable 版本:2018.9.9.1
错误所在事件:自定义函数Translate_TableMenu
详细错误信息:
调用的目标发生了异常。
该字符串未被识别为有效的布尔值。不能在 锁定表 列中存储 <1>。所需类型是 Boolean。
该字符串未被识别为有效的布尔值。

[此贴子已经被作者于2018/11/2 16:07:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/2 15:42:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lunengcheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
  发帖心情 Post By:2018/11/2 16:07:00 [只看该作者]

使用上面参考链接的代码,已经解决,多谢老师!

 回到顶部