Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入数据


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

主题：导入数据
帅哥哟，离线，有人找我吗？
xingshou
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：326 威望：0 精华：0 注册：2021/8/11 17:36:00 		导入数据  发帖心情 Post By：2021/8/28 11:33:00 [显示全部帖子]

老师您好，我想问一下导入数据，这是我的代码，我新增一条他就出很多的空值应该怎么修改呢
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
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)
Tables("t1").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("t1").Find("学号 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单
        Dim r As Row = Tables("t1").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("t1").ResumeRedraw()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
xingshou
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：326 威望：0 精华：0 注册：2021/8/11 17:36:00 		  发帖心情 Post By：2021/8/28 11:34:00 [显示全部帖子]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
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)
Tables("t1").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("t1").Find("学号 = '" & bh & "'") Is Nothing Then '如果不存在同编号的订单
        Dim r As Row = Tables("t1").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("t1").ResumeRedraw()
End If
还有一个如果表的列顺序不一样应该怎么导入呢
 回到顶部
帅哥哟，离线，有人找我吗？
xingshou
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：326 威望：0 精华：0 注册：2021/8/11 17:36:00 		  发帖心情 Post By：2021/8/28 11:51:00 [显示全部帖子]

拿老师如果我foxtable是"姓名","学号","专业","学校","实习单位" excel是 学号 姓名专业 学校 实习单位怎么 弄

 回到顶部
帅哥哟，离线，有人找我吗？
xingshou
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：326 威望：0 精华：0 注册：2021/8/11 17:36:00 		  发帖心情 Post By：2021/8/28 13:51:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim nms() As String = {"学号","姓名","专业","学校","实习单位"}
    Dim nms2() As String = {"学号","姓名","专业","学校","实习单位"}
    Dim dict As new Dictionary(of String,String)
    For m As Integer = 0 To nms.Length - 1
        dict.add(nms2(m),nms(m))
    Next
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("t1").StopRedraw()
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        If  Sheet(n,0).text > "" Then
            Dim r As Row = Tables("t1").AddNew()
            For m1 As Integer = 0 To Sheet.Cols.Count - 1
                If dict.ContainsKey(Sheet(0,m1).Value)
                    r(dict(Sheet(0,m1).Value)) = Sheet(n,m1).Value
                End If
            Next
        End If
    Next
    Tables("t1").ResumeRedraw()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
xingshou
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：43 积分：326 威望：0 精华：0 注册：2021/8/11 17:36:00 		  发帖心情 Post By：2021/8/28 13:51:00 [显示全部帖子]

老师我想问一下excel没有处理老师列的，怎么设置可以让他，导入的数据都添加处理人为username的

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询