标题：外部数据表的流水账问题

用户已锁定！

挺晕菜， 不如配上一个实例，很少人脑子里能装几个表还有那么多列等等，再说涉及到代码问题都要进行测试的。

帮助的流水账是针对已经加载的数据，如果要针对后台数据，需要用SQL改写上述代码，用Update语句更新后台数据，如果理解了上述代码，那么改写起来是比较容易的。

用户已锁定！

你这个例子数据行太少了，也不知道你做到那一步卡壳了，难道你提个问题来，要大家猜测你想要什么样的解决方法？ 一般问题都有很多的解决办法。你应该自己一边做，卡壳的地方再提出来，才好让大家帮你，不然大家思路不同，可能不符合你的构思的。

用户已锁定！

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)

用户已锁定！

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

 

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)

用户已锁定！