- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助一段代码，不知道怎么回事 报错实在找不到原因了 特来求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=13511)
-- 发布时间：2011/10/14 21:30:00
-- 求助一段代码，不知道怎么回事 报错实在找不到原因了 特来求助
If e.DataCol.Name = "数量"
Dim rs As Integer = "编号 = " & e.DataRow("编号") And "[方向] = \'入库\' "
Dim cs As Integer = "编号 = " & e.DataRow("编号") And "[方向] = \'出库\' "
Dim dqk As List(of DataRow) = DataTables("当前库存").Select(rs)
For Each dqs As DataRow In dqk
Dim rss As Double = e.DataTable.Compute("sum(数量)",rs)
Dim css As Double = e.DataTable.Compute("sum(数量)",cs)
dqs("数量") = rss - css
Next
End If
总报编号的数据类型不对 已经查看过了 而且改成String一样报错 实在是想不到还能改的地方了 教程也看了无数次了 特来论坛求助 希望帮帮忙 谢谢了
-- 发布时间：2011/10/14 21:33:00
--
对了 是 DatacolChanged 事件里面的代码 重置数量列的时候出现报错
-- 发布时间：2011/10/14 21:56:00
--
if e.DataCol.Name = "数量"
Dim rss,css As Double
Dim rs,cs As String
rs = "编号 = \'" & e.DataRow("编号") & "\' And [方向] = \'入库\' "
cs = "编号 = \'" & e.DataRow("编号") & "\' And [方向] = \'出库\' "
Dim dqk As List(of DataRow) = DataTables("当前库存").Select(rs)
For Each dqs As DataRow In dqk
rss = e.DataTable.Compute("sum(数量)",rs)
css = e.DataTable.Compute("sum(数量)",cs)
dqs("数量") = rss - css
Next
End If
理由:
http://www.foxtable.com/help/topics/1284.htm
-- 发布时间：2011/10/16 8:41:00
--
按照上面的代码 重置以后还是报错 提示找不到方向列 郁闷了 帮助看了好几遍都不知道该如何改代码了
-- 发布时间：2011/10/16 8:50:00
--
上传文件,说明目的
-- 发布时间：2011/10/16 8:58:00
--
当前库存数量等于出入库明细表的同编号商品入库数量-出库数量 就是想要实现这个目的 谢谢了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2011/10/16 8:59:00
--
都是业余时间在搞 工作比较忙 都是上班的时候手机上面看帮助文件 有时间了才搞一搞
-- 发布时间：2011/10/16 9:25:00
--
-- 发布时间：2011/10/16 9:37:00
--
感谢您的解答 看来设计代码的理念比较重要啊
-- 发布时间：2011/10/16 9:41:00
--
还是有些搞不懂 以前的那个代码为什么会提示找不到方向列呢 编程的基础比较弱 是不是需要找本VB来补补课呢