以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动开发时，怎么实现页面上选择Excel数据表导入数据到数据库呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160872)
--  作者：cnsjroom
--  发布时间：2021/2/24 15:48:00
--  移动开发时，怎么实现页面上选择Excel数据表导入数据到数据库呢？
移动开发时，怎么实现页面上选择Excel数据表导入数据到数据库呢



如果希望出现一个打开文件对话框，合并用户指定的文件，可以参考下面的代码：

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "订单"
    mg.DataTableName = "订单"
    mg.Merge()
End If
--  作者：有点蓝
--  发布时间：2021/2/24 15:51:00
--  
选择上传文件参考：http://www.foxtable.com/mobilehelp/topics/0054.htm，后台接收文件：http://www.foxtable.com/mobilehelp/topics/0060.htm

后台接收文件后再进行后续处理
--  作者：cnsjroom
--  发布时间：2021/2/24 16:04:00
--  回复：（有点蓝）选择上传文件参考：http://www.foxta...
老师  那页面按钮点击导出Excel数据呢？有没有可以参考的列子
--  作者：有点蓝
--  发布时间：2021/2/24 16:17:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0148.htm
--  作者：cnsjroom
--  发布时间：2021/2/25 9:42:00
--  回复：（有点蓝）参考：http://www.foxtable.com/mobi...
老师参照你的指导  我操作了如下
Dim e As RequestEventArgs = args(0)
Dim nms() As String = {"获奖者","性别","获奖名称","授奖单位","获奖时间"}
Dim cmd As New S QLCommand
cmd.Conn ecti
cmd.Comm andText = "Sel ect 获奖者, 性别, 获奖名称,授奖单位,获奖时间 From {表彰} "
Dim dt As DataTable = cmd.ExecuteReader
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For c As Integer = 0 To nms.Length - 1
    Sheet(0, c).Value = nms(c)
Next
For r As Integer = 0 To dt.DataRows.Count - 1
    For c As Integer = 0 To nms.Length - 1
        Sheet(r + 1, c).Value = dt.Datarows(r)(nms(c))
    Next
Next

book.PreBuild = False \'非报表模请将PreBuild 属性设置为False
e.WriteBook(book,"表彰.xls",True)

可以实现表彰表的导出了    但是获奖时间列没有正确显示数据表中的内容

显示录入如下格式    有没有修正的方法呢？   数据表中的时间如2021-02-09 00:00:00
获奖时间
44255
44240
44202
44236
--  作者：有点蓝
--  发布时间：2021/2/25 9:49:00
--  
日期列另外处理
Dim nms() As String = {"获奖者","性别","获奖名称","授奖单位"}
……
For r As Integer = 0 To dt.DataRows.Count - 1
    For c As Integer = 0 To nms.Length - 1
        Sheet(r + 1, c).Value = dt.Datarows(r)(nms(c))
    Next
Sheet(r + 1, 4).Value = format(dt.Datarows(r)("获奖时间"),"yyyy-MM-dd")
Next