Foxtable(狐表)用户栏目专家坐堂 → 忙活了几天,没整出来,库存计算求助


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

主题:忙活了几天,没整出来,库存计算求助

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/6 12:00:00 [显示全部帖子]

按什么步骤操作?怎么测试

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/6 16:22:00 [显示全部帖子]

可以参考一下流水账的方式:http://www.foxtable.com/webhelp/topics/2136.htm

这个存量数据个人觉得没有多大用处,放在这里也不是很合理,以后数据一多,每改一行,同产品所有数据都得全部重算一遍,效率极低。

可以学学这个例子里的库存管理方式:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179720

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/6 20:26:00 [显示全部帖子]

增加一个流水表,类似帮助里的示例二,入库就增加一行,计入库,出库也增加一行,计出库

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/7 10:36:00 [显示全部帖子]

入库表和出库明细保留,另外增加一个流水表,只记录出入库的关键数据

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/7 10:51:00 [显示全部帖子]

入库表和出库明细表的datacolchanged事件里同步更新流水表数据,类似:流水表

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/7 16:18:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/7 16:43:00 [显示全部帖子]

写了什么代码?

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109221 积分:555731 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/7 17:46:00 [显示全部帖子]

        Dim dr As DataRow = DataTables("流水表").Find("时间 = #" & e.OldValue & "#")
       If dr Is Nothing Then 
                dr = DataTables("流水表").AddNew()
            End If
……
            Dim dr As DataRow = DataTables("流水表").Find("时间 = #" & e.newValue & "#") 
            If dr Is Nothing Then 
               dr = DataTables("流水表").AddNew()
           End If

 回到顶部