Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有个项目 困扰了很久 现在终于发现问题了 但不知道如何解决？


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

主题：有个项目 困扰了很久 现在终于发现问题了 但不知道如何解决？
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2554 积分：20096 威望：0 精华：0 注册：2012/5/19 11:57:00 		有个项目 困扰了很久 现在终于发现问题了 但不知道如何解决？  发帖心情 Post By：2016/10/1 9:03:00 [显示全部帖子]

有个项目 困扰了很久 现在终于发现问题了 但不知道如何解决？


项目下有个客户表 销售表
客户表结构 客户编码 客户名称 期初余额 借方金额 贷方金额 余额
销售表结构 单据号 日期 客户编码 客户名称 产品编码 产品名称 数量 单价 金额 
 销售单的datachanged 代码如下

 Dim dr1 As DataRow
        dr1 = DataTables("客户").Find("[客户名称] ='" & Tables("销售单").current("客户名称") & "' ")
        If dr3 IsNot Nothing Then
            dr3("借方金额")=dr3("借方金额")+Tables("销售单").current("金额")
            dr3("余额")=dr3("期初金额")+dr3("借方金额")-dr3("贷方金额")
        End If
        DataTables("客户").save()

在网络环境下，录入销售单 客户名称相同的话 ，发现客户的余额 不对 ，原因是加载问题，客户表一旦加入 ，当一个站点保存时 对于另一个站点来说 没有及时更新 还是原来加载时的数据 请教狐爸如何处理这个问题？
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2554 积分：20096 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2016/10/1 10:10:00 [显示全部帖子]

 谢谢狐爸 指点迷津
  我用第三条测试了一下 后台数据没有更新 
 3、如果一定要这样统计的话，Find用SQLFind代替。 

代码如下
        '进客户
        Dim dr3 As DataRow
        dr3 = DataTables("客户").sqlFind("[客户名称] ='" & Tables("销售单").current("客户名称") & "' ")
        If dr3 IsNot Nothing Then
msgbox("$#")   
msgbox(Tables("销售单").current("金额"))

         dr3("借方金额")=dr3("借方金额")+Tables("销售单").current("金额")
msgbox(dr3("借方金额"))


            dr3("余额")=dr3("期初金额")+dr3("借方金额")-dr3("贷方金额")
msgbox(dr3("余额"))
        End If
        DataTables("客户").save()

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


加好友 发短信
等级：九尾狐 帖子：2554 积分：20096 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2016/10/1 10:15:00 [显示全部帖子]

上面代码不是保存了吗

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


加好友 发短信
等级：九尾狐 帖子：2554 积分：20096 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2016/10/1 10:49:00 [显示全部帖子]

我做个最简单的列子 上传过来 狐爸帮助看一下 ，网络环境下多用户录入销售单，客户表的后台余额能同步更新
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.rar


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