[求助]增加数据行非常慢估计我代码算法问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加数据行非常慢估计我代码算法问题

共有3489人关注过本帖树形打印复制链接主题：[求助]增加数据行非常慢估计我代码算法问题

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

[求助]增加数据行非常慢估计我代码算法问题 发帖心情

Post By：2014/7/6 12:41:00 [只看该作者]

我是有个肉禽蛋下单界面点增加出库单按钮会在社员基本信息.畜牧出库单增加一行同时在社员基本信息.畜牧出库单.畜牧出库明细增加一行但是增加的时候会卡速度很慢！

增加数据行非常慢估计我代码算法问题

而且增加好之后我在商品大类中选择商品也要卡一段时间才行因为我选择商品大类后面的商品名称编码规格单价数量（默认1）单位折扣小计余额之类的都是自动关联出来的~ 然后这个余额会关联到上面表格的消费金额中用上一次的余额减去这次的消费金额得到最终余额。

比如我选猪肉单价35 数量为1 金额则为-35 然后上面的表格消费金额就是-35 余额为上一次的余额178.38减去35 得到143.38~ 我改变下面的单价、数量有计算的话就会卡很久！！(DataColChanged事件代码里有计算代码)这是为什么~还有点增加产品明细按钮在下面表格增加一行也会卡很久~

大神麻烦看看能不能改进啊麻
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

此主题相关图片如下：2.png

此主题相关图片如下：3.png

烦了~

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

Post By：2014/7/6 12:47:00 [只看该作者]

把程序上传~ 麻烦大神帮忙看下 foxtable开发版的开发者登录密码chsheng 外部数据库链接可能需要重新设置下~

下载信息 [文件大小：下载次数： ]
点击浏览该文件:单机版_- 改.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/6 14:25:00 [只看该作者]

畜牧出库明细表的DataColchanged事件改一下

If e.DataCol.Name = "配送日期" Then
   If e.DataRow.IsNull("配送日期") = False Then
        e.DataRow("星期") = Format(e.DataRow("配送日期"), "dddd")
   End If
End If

If e.DataCol.name="数量" Then
DataTables("畜牧出库单").DataCols("存款金额").RaiseDataColChanged("_Identify = '" & e.DataRow("出库编号") & "'")
End If
If e.DataCol.name="单价" Then
DataTables("畜牧出库单").DataCols("存款金额").RaiseDataColChanged("_Identify = '" & e.DataRow("出库编号") & "'")
End If

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

可以了~有点甜大哥很厉害啊麻烦在请教个问题 发帖心情

Post By：2014/7/6 15:09:00 [只看该作者]

还是肉禽蛋下单界面~ 当我7月6号在下面表格添加了两笔订单

点旁边的删除出库单按钮上面表格中7月6号那行删掉了~下面表格2笔订单也没了但是回畜牧出库明细还是会有那两行数据（这两行是垃圾数据是要删除的~）

我想到的是表间关联畜牧出库单_明细同步删除关联行勾选上~ 但是一勾选上就会出错~这个怎么弄？用代码吗
图片点击可在新窗口打开查看

此主题相关图片如下：11.png

此主题相关图片如下：22.png

此主题相关图片如下：33.png

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/6 15:23:00 [只看该作者]

我设置了，测试没有问题，设置以后，会报错，你退出重新打开以后，就正常了。

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

嗯嗯我试了下要退出才可以我以为是设置有问题~ 麻烦还有个问题看下 发帖心情

Post By：2014/7/6 15:55:00 [只看该作者]

不好意思还有个问题问题是在蔬菜下单界面

我点右下角的蔬菜余额统计按钮希望把对应客户的今天之前（包括今天）小计累加统计得到的值写入对应客户的蔬菜余额列中

例如点按钮 7012客户就是把今天之前 7012客户之前小计全部累加起来写入社员基本信息表蔬菜余额列中

7013客户同理希望点一下按钮所有客户的都统计出来

我的蔬菜余额统计按钮代码是：

Dim sum As Double

sum=Tables("社员基本信息.社员消费明细").Compute("Sum(单价)","配送日期 <= #Date.Today# ")

Tables("社员基本信息").Current("蔬菜余额")=sum

但一点按钮就会出错~好像不行！
图片点击可在新窗口打开查看

此主题相关图片如下：41.png

此主题相关图片如下：42.png

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/6 16:05:00 [只看该作者]

代码

For Each dr As DataRow In DataTables("社员基本信息").DataRows
    Dim sum As Double
    sum = DataTables("社员消费明细").Compute("Sum(单价)","社员ID = '" & dr("社员信息_社员ID") & "' and 配送日期 <= #" & Date.Today & "# ")
    dr("蔬菜余额")=sum
Next