以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教老师如何做xls上传文件,用手工编码填充数据对应列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191701)

--  作者:wakai
--  发布时间:2024/5/3 13:44:00
--  [求助]请教老师如何做xls上传文件,用手工编码填充数据对应列
要实现自行选定文件上传(每天收到Excel表格上传),列名不同用手工编码填充,并且以"报告编号"为关键词,重复的跳过,不重复的新增
表结构


Dim Cols1() As String = {"报告编号","客户姓名","联系电话",“联系地址”}
Dim 
Cols2() As String = {"报告编号","姓名","电话",“地址”}
-----------------------------------------------------------------
以下是查帮助的方法,请教如何写,不胜感谢

如果希望出现一个打开文件对话框,导入用户指定的文件,可以参考下面的代码:

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg
.Filter= "Excel文件|*.xls" \'设置筛选器
If
dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim
ip As New Importer
ip.SourcePath = dlg.FileName \'指定数据文件
ip.SourceTableName = "订单" \'指定要导入的表
ip.NewTableName ="订单" \'导入后的表名
ip.Import()
End If


合并数据

如果订单表中已经存在相同编号的订单,那么就跳过此订单,可以将代码改为:

Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)
Tables(
"订单").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("订单").Find("编号 = \'" & bh & "\'") Is Nothing Then \'如果不存在同编号的订单
        Dim 
r As Row = Tables("订单").AddNew()
        For 
m As Integer = 0 To nms.Length - 1
            
r(nms(m)) = Sheet(n,m).Value
        
Next
    End If
Next
Tables(
"订单").ResumeRedraw(


如果表A和表B的结构不同,或者只需填充部分列,就需要定义数据来源列和数据接收列,例如:

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim 
Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each 
dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim 
dr2 As DataRow = DataTables("表B").AddNew()
    For 
i As Integer = 0 To Cols1.Length -1
        
dr2(Cols2(i)) = dr1(Cols1(i
))
    Next
Next


--  作者:有点蓝
--  发布时间:2024/5/5 20:22:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Cols1() As String = {"报告编号", "客户姓名", "联系电话", “联系地址”}
    Dim Cols2() As String = {"报告编号", "姓名", "电话",“地址”}
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("订单").StopRedraw()
    \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count - 1
        Dim bh As String = sheet(n, 0).Text
        If DataTables("订单").Find("报告编号 = \'" & bh & "\'") Is Nothing Then \'如果不存在同编号的订单
            Dim r As Row = Tables("订单").AddNew()
            For m As Integer = 0 To Cols1.Length - 1
                r(Cols2(m)) = Sheet(n, m).Value
            Next
        End If
    Next
    Tables("订单").ResumeRedraw()
End If

--  作者:wakai
--  发布时间:2024/5/6 20:09:00
--  
蓝老师,可以上传了,能跳列吧,上传表有很多是无用的列,能不能指定列上传
--  作者:有点蓝
--  发布时间:2024/5/6 20:16:00
--  
改为指定列的位置,比如execl里"报告编号"在第一列, "客户姓名"在第3列, "联系电话"在第5列, “联系地址”在第6列

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim Cols1() As integer = {0, 2, 4, 5} \'execl列索引从0开始
    Dim Cols2() As String = {"报告编号", "姓名", "电话",“地址”} \'Foxtable表格列名
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("订单").StopRedraw()
    \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count - 1
        Dim bh As String = sheet(n, 0).Text
        If DataTables("订单").Find("报告编号 = \'" & bh & "\'") Is Nothing Then \'如果不存在同编号的订单
            Dim r As Row = Tables("订单").AddNew()
            For m As Integer = 0 To Cols1.Length - 1
                r(Cols2(m)) = Sheet(n, Cols1(m)).Value
            Next
        End If
    Next
    Tables("订单").ResumeRedraw()
End If