请问如何将这两条代码融合到另外一个代码中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何将这两条代码融合到另外一个代码中

共有2260人关注过本帖树形打印复制链接主题：请问如何将这两条代码融合到另外一个代码中

hongyefor

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

加好友

发短信

等级：二尾狐帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00

请问如何将这两条代码融合到另外一个代码中 发帖心情

Post By：2016/4/19 11:47:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:tw.txt

第一条

Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = Tables("fa piao明细").Rows.Count '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值

第二条

Dim c As Integer = 0
c=c+1
Messagebox.show("同步完成!共同步"&c&"条数据。","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

请问如何将第一条和第二条的代码融合到上面TXT文件的代码中，谢谢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/19 12:09:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

hongyefor

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

加好友

发短信

等级：二尾狐帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00

Post By：2016/4/19 12:27:00 [只看该作者]

问题是没有了，可是，当加入

If DataTables("fa piao明细").HasChanges Then
DataTables("fa piao明细").Save
End If

这个代码后运行速度十分慢，看看用什么办法解决，数据库有6000条数据

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/19 14:45:00 [只看该作者]

看看你BeforeSaveDataRow事件有没有写什么耗时的代码。

如果没有写，那就没办法了。保存慢是肯定的，毕竟数据量大，而且可能是远程数据库。

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

主题：请问如何将这两条代码融合到另外一个代码中