Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于导出数据


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

主题：[求助]关于导出数据
帅哥哟，离线，有人找我吗？
wusim
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		[求助]关于导出数据  发帖心情 Post By：2016/5/14 15:35:00 [显示全部帖子]

导出为Access格式
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "基本信息表" '指定导出表
   ex.filepath = dlg.FileName  '指定目标文件
  ex.Export() '开始导出
End If

与导出为Excel格式
Syscmd.Project.ExportToExcel()

导出出基本信息表数据或筛选后符合条件的数据，　怎样改代码
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/14 16:25:00 [显示全部帖子]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "基本信息表" '指定导出表
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Filter = "列名='某值'"　　　　怎样与下面的代码结合　　　　　　　　
    ex.Export() '开始导出
End If

Dim Filter As String
With e.Form.Controls("单位查找")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "使用单位名称 like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("出厂编号查找")　　　如果查找多个出厂编号，也可以模糊，但不确定多少，用顿号区分，　如：1003、1004、20145　代码怎样改？
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出厂编号 like '*" & .Value & "*'"
    End If
End With

If Filter > "" Then
    Tables("基本信息表").Filter = Filter
End If

导出为Excel格式　怎样做才能与上面导出为Access格式功能一样
Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价" '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/14 16:42:00 [显示全部帖子]

ex.Filter = Filter　显示代码错误

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


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/14 21:19:00 [显示全部帖子]

菜单设计中按钮Click事件

With  Form("基本信息表").Controls("单位查找")　　显示代码错误

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


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/14 21:58:00 [显示全部帖子]

Dim Filter As String
With e.Form.Controls("单位查找")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "使用单位名称 like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("出厂编号查找")　　　
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出厂编号 like '*" & .Value & "*'"
    End If
End With

If Filter > "" Then
    Tables("基本信息表").Filter = Filter
End If
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "基本信息表" '指定导出表
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Filter = Filter 　　　　　　　　　　　
    ex.Export() '开始导出
End If

显示器基本信息表　已存在
导出的数据库只有一行空行

实际只想导出基本信息表的数据，当没有按筛选键时就是全部数据，当按了筛选键后就是符合条件的数据
与导出Excel代码功能一样
'Syscmd.Project.ExportToExcel()
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("基本信息表").SaveExcel(dlg.FileName, "基本信息表")  '保存文件
End If
[此贴子已经被作者于2016/5/15 9:55:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/15 16:32:00 [显示全部帖子]

当２个筛选条件空白时，按导出数据时，可以导出全部数据，但时当要覆盖原来的导出文件时，提示基本信息表已存在。
当输入了筛选条件时，就只能导出空白数据库。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


不知为什么打开的窗口：表是空白
　
[此贴子已经被作者于2016/5/15 16:33:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/15 22:33:00 [显示全部帖子]

１３楼的代码可以了，但是我加多几个条件筛选时，不知哪里错，还是导出空记录的数据库文件
Dim Filter As String
With e.Form.Controls("单位查找")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "使用单位名称 like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("合同号查找")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "合同编号 like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("出厂编号查找")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出厂编号 like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("制造日期查找")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出厂日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("制造日期查找2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "出厂日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("基本信息表").Filter = Filter
End If
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    If FileSys.FileExists(dlg.FileName) Then
        FileSys.DeleteFile(dlg.FileName, 2, 2)
    End If
    Dim ex As New Exporter
    ex.SourceTableName = "基本信息表" '指定导出表
    ex.Filter = filter
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Filter = Filter
    ex.Export() '开始导出
End If
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/16 6:51:00 [显示全部帖子]

代码* 改成 %可以,谢谢老师


如果按条件筛选后,再用复选框选择, 这段代码怎样加上去. 因为筛选符合行,要分二个步走.

Dim idx As String = "-1,"

For Each r As Row In Tables("基本信息表").GetCheckedRows

    idx &= r("_Identify") & ","

Next

Tables("基本信息表").filter = "_Identify in (" & idx.trim(",") & ")"
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/16 17:16:00 [显示全部帖子]

还是不行，

Tables("基本信息表").filter = "_Identify in (" & idx.trim(",") & ")"改成Tables("基本信息表").filter = iif(Filter > "", "(" & Filter & ") and _Identify in (" & idx.trim(",") & ")", "_Identify in (" & idx.trim(",") & ")")

没有弹出复选框选择，导出的数据还是钩选前的数据。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 回到顶部
帅哥哟，离线，有人找我吗？
wusim
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：3179 威望：0 精华：0 注册：2008/8/31 20:44:00 		  发帖心情 Post By：2016/5/16 22:03:00 [显示全部帖子]

１、运行项目，基本信息表是全部数据的，但是在没有先按查找按钮，直接按导出数据按钮，只能导出空数据库，这种情况下应可以导出全部数据行。
２、按查找按钮后，再在选择行上打勾，再按导出数据按钮显示错误信息。　等一会儿，不知什么原因窗口变成灰色状态，按钮不起作用，只有快捷菜单和系统菜单起作用。
３、能不能我这样做可以正常导出列表复筛选后的数据行。a.按查找按钮－〉再按导出数据按钮。b.按查找按钮－〉再按钩选按钮－〉最后按导出数据按钮。

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看，

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


[此贴子已经被作者于2016/5/16 22:03:27编辑过]
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 8 次数据查询