数据提取问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据提取问题

共有10836人关注过本帖树形打印复制链接主题：数据提取问题

jhxb8821

小大 81楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2023/8/29 16:48:00 [只看该作者]

Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog

dlg.Filter = "备份文件|*.dat"

dlg.Title = "请选择文件保存路径!"

dlg.InitialDirectory = ProjectPath & "databak\" '方法1 需要指定文件保存路径

'dlg.InitialDirectory = ProjectPath & "Reports\系统备份\" & "databak\" '方法2

dlg.FileName = Format(Date.Today, "yyyy-MM-dd")

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

FileSys.CopyFile(ProjectPath & "data.mdb", dlg.FileName, True) '方法1

' FileSys.CopyFile(ProjectPath & "Reports\系统备份\" & "data.mdb", dlg.FileName, True) '方法2

MessageBox.Show("你要保存为：" & dlg.FileName, "提示")

End If

为什么我用方法1没有问题，用方法2有问题？请老师帮忙修改代码

有点蓝

小大 82楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/8/29 16:56:00 [只看该作者]

1、下面代码有问题，说明项目目录里不存在"Reports\系统备份\databak\"其中1个或者多个目录

'dlg.InitialDirectory = ProjectPath & "Reports\系统备份\" & "databak\" '方法2

2、同样的问题，说明不存在这个路径的文件：ProjectPath & "Reports\系统备份\data.mdb"

jhxb8821

小大 83楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2023/8/29 17:08:00 [只看该作者]

Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog

dlg.Filter = "备份文件|*.dat"

dlg.Title = "请选择文件保存路径!"

dlg.InitialDirectory = ProjectPath & "Reports\系统备份\databak\" '方法2

dlg.FileName = Format(Date.Today, "yyyy-MM-dd")

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

FileSys.CopyFile(ProjectPath & "Reports\系统备份\data.mdb", dlg.FileName, True) '方法2

MessageBox.Show("你要保存为：" & dlg.FileName, "提示")

End If

为什么上述代码还是出现同样的错误信息？

有点蓝

小大 84楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/8/29 17:21:00 [只看该作者]

说明这些路径不存在

jhxb8821

小大 85楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2023/8/29 17:24:00 [只看该作者]

我想自定义保存路径

有点蓝

小大 86楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/8/29 17:26:00 [只看该作者]

不存在的文件夹要先创建，才能使用

jhxb8821

小大 87楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2023/8/29 17:48:00 [只看该作者]

是手动创建文件夹吗，我已预先创建了，可是还是出错。难道是用代码创建？

jhxb8821

小大 88楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2023/8/29 18:02:00 [只看该作者]

数据备份与还原，自定义路径，请老师看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹 (2).rar

有点蓝

小大 89楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/8/29 20:04:00 [只看该作者]

很简单的道理，系统备份这个目录里根本就没有任何文件，备份空气吗！！

jhxb8821

小大 90楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00

Post By：2024/4/16 8:44:00 [只看该作者]

For Each v As String() In DataTables("表A发放表").GetValues("乡镇街道|村名|姓名|公民身份证号码")

Dim dr As DataRow = DataTables("表B历次汇总表").AddNew()

dr("乡镇街道") = v(0)

dr("村名") = v(1)

dr("姓名") = v(2)

dr("公民身份证号码") = v(3)

Dim prds As List(Of DataRow) = DataTables("表A发放表").select("乡镇街道='" & v(0) & "' And 村名='" & v(1) & "' And 姓名='" & v(2) & "' and 公民身份证号码='" & v(3) & "'")

For Each prd As DataRow In prds

dr(prd("资金年度")) = prd("补助金额")

MainTable = Tables("表B历次汇总表")

以上代码正确, 我想实现追加汇总, 表B汇总表里已有数据，希望表A发放表新的数据通过追加汇总代码, 将表A发放表新的数据添加到表B

这四个条件(乡镇街道|村名|姓名|公民身份证号码)一致的, 就添加到对应的行里, 如不一致就新增一列添加数据；

请老师修改一下代码

下一主题 >> << 上一主题

总数 112 1.. 上一页 3 4 5 6 7 8 9 10 11 12 下一页

主题：数据提取问题