- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问如何将这两条代码融合到另外一个代码中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83891)
-- 发布时间：2016/4/19 11:47:00
-- 请问如何将这两条代码融合到另外一个代码中
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:tw.txt |
第一条
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
p.Maximum = Tables("发票明细").Rows.Count \'设置最大值
p.Minimum = 0 \'设置最小值
p.Value = 0 \'设置当前值
第二条
Dim c As Integer = 0
c=c+1
Messagebox.show("同步完成!共同步"&c&"条数据。","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
请问如何将第一条和第二条的代码融合到上面TXT文件的代码中，谢谢
-- 发布时间：2016/4/19 12:09:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2016/4/19 12:27:00
--
问题是没有了，可是，当加入
If DataTables("发票明细").HasChanges Then
DataTables("发票明细").Save
End If
这个代码后运行速度十分慢，看看用什么办法解决，数据库有6000条数据
-- 发布时间：2016/4/19 14:45:00
--
看看你BeforeSaveDataRow事件有没有写什么耗时的代码。
如果没有写，那就没办法了。保存慢是肯定的，毕竟数据量大，而且可能是远程数据库。