Foxtable(狐表)用户栏目专家坐堂 → 导入不成功


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

主题:导入不成功

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


加好友 发短信
等级:三尾狐 帖子:798 积分:7677 威望:0 精华:0 注册:2015/9/14 14:26:00
导入不成功  发帖心情 Post By:2016/6/7 14:21:00 [只看该作者]

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
   
   
   
    Tables("A110信息登记_明细").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("A110信息登记_明细").Find("流水号= '" & bh & "'") Is Nothing Then
           
            For m As Integer = 0 To nms.Length - 1
 
                If Sheet(n,m).Text <> "" Then
                    Dim r As Row = Tables("窗口1_table1").AddNew()
                    'MessageBox.Show( r("'"& nms(m) &"'"))
                   
                    r(nms(m)) = Sheet(n,m).Value
                    
                End If
            Next
        End If
    Next
    Tables("A110信息登记_明细").ResumeRedraw()
End If

 

导入两行空白行。不知道错在哪里


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/6/7 14:58:00 [只看该作者]

看不出什么问题,上传例子测试

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/8 10:29:00 [只看该作者]

1、是不是你导入的数据都已经有了?

 

2、代码

 

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
   
   
   
    Tables("A110信息登记_明细").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("A110信息登记_明细").Find("流水号= '" & bh & "'") Is Nothing Then
            Dim r As Row = Tables("窗口1_table1").AddNew()
            For m As Integer = 0 To nms.Length - 1
               
                If Sheet(n,m).Text.Trim <> "" Then
                                     
                    r(nms(m)) = Sheet(n,m).Text.Trim
                    
                End If
            Next
        End If
    Next
    Tables("A110信息登记_明细").ResumeRedraw()
End If


 回到顶部