以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  外部数据表的流水账问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7871)
--  作者：e-png
--  发布时间：2010/8/13 23:38:00
--  
挺晕菜， 不如配上一个实例，很少人脑子里能装几个表还有那么多列等等，再说涉及到代码问题都要进行测试的。
--  作者：狐狸爸爸
--  发布时间：2010/8/14 11:18:00
--  [公告]招会狐表 EXCEL VBA 的财务

帮助的流水账是针对已经加载的数据，如果要针对后台数据，需要用SQL改写上述代码，用Update语句更新后台数据，如果理解了上述代码，那么改写起来是比较容易的。
--  作者：e-png
--  发布时间：2010/8/15 11:07:00
--  

你这个例子数据行太少了，也不知道你做到那一步卡壳了，难道你提个问题来，要大家猜测你想要什么样的解决方法？ 一般问题都有很多的解决办法。你应该自己一边做，卡壳的地方再提出来，才好让大家帮你，不然大家思路不同，可能不符合你的构思的。
--  作者：e-png
--  发布时间：2010/8/15 17:32:00
--  

Dim cmd As New SQLCommand

  cmd.Connection Name = "数据源名"
Dim amt，amtc AS double
cmd.CommandText = "SELECT SUM(入库数量) AS 总计 FROM {物品入库} WHERE [物品名称]= \'" & e.DataRow("物品名称")"\'")
amt = cmd.ExecuteNonQuery()
output.show(amt)
cmd.CommandText = "SELECT SUM(出库数量) AS 总计 FROM {物品出库} WHERE [物品名称]= \'" & e.DataRow("物品名称")"\'")
amtc = cmd.ExecuteNonQuery()
output.show(amtc)

[此贴子已经被作者于2010-8-15 17:34:43编辑过]
--  作者：mr725
--  发布时间：2010/8/15 21:27:00
--  

你在命令窗口试一试这个:

 

Dim cmd As New SQLCommand
cmd.C
Dim amt,amtc AS Double

cmd.CommandText = "SELECT SUM(入库数量) FROM {物品入库} WHERE 物品名称 = \'" & Tables("物品入库").current("物品名称") & "\'"
amt = cmd.ExecuteScalar()
output.show("入库数量合计: " & amt)
cmd.CommandText = "SELECT SUM(出库数量) FROM {物品出库} WHERE [物品名称]= \'" & Tables("物品入库").current("物品名称") & "\'"
amtc = cmd.ExecuteScalar()
output.show("出库数量合计: " & amtc)
--  作者：mr725
--  发布时间：2010/8/15 21:50:00
--  

cmd.C  后面漏掉了   请补上去

 

我测试正常.

 
--  作者：mr725
--  发布时间：2010/8/15 22:02:00
--  

我的代码试告诉你数据源中"物品入库" 表和 "物品出库" 表中,当前行该物品名称的累计入库和出库的总计是多少. 当前行没有物品名称的话当然就出错了,可以加个判断条件,If Tables("物品入库").current.IsNull("物品名称") = False ...End If  

你现在要增加入库和出库, 怎样计算现在的库存余数应该没有问题了吧............
--  作者：lkqing
--  发布时间：2010/8/15 22:24:00
--  
我弱智，请问入库和出库两张表的总计相减得出余额，还能称作流水账吗？
--  作者：mr725
--  发布时间：2010/8/15 22:49:00
--  
没有规定入库和出库都在一张表上才算流水账吧。 再说合并两张表再简单不过了。。。 呵呵
--  作者：mr725
--  发布时间：2010/8/15 22:56:00
--  
以下是引用liuruihua在2010-8-15 22:45:00的发言：

感谢mr725的帮助，在下还是有点愚钝，这个库存似乎是一次性的，出库后好象不能即时更新，能否把此命令直接写入一楼例子“物品出库”表的datacolchanged事件中？

自己做啊，有问题再问大家吧。  想要现成，不如下载一个免费的软件使用就是了，这里是交流的地方，大家可以互相解决学习中碰到的问题。