Foxtable(狐表)用户栏目专家坐堂 → 求助一段代码,不知道怎么回事 报错实在找不到原因了 特来求助


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

主题:求助一段代码,不知道怎么回事 报错实在找不到原因了 特来求助

帅哥哟,离线,有人找我吗?
hwmbing11
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
求助一段代码,不知道怎么回事 报错实在找不到原因了 特来求助  发帖心情 Post By: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一样报错 实在是想不到还能改的地方了 教程也看了无数次了 特来论坛求助 希望帮帮忙 谢谢了


 回到顶部
帅哥哟,离线,有人找我吗?
hwmbing11
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/14 21:33:00 [只看该作者]

对了 是 DatacolChanged 事件里面的代码 重置数量列的时候出现报错

 回到顶部
帅哥哟,离线,有人找我吗?
don
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By: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-14 22:17:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hwmbing11
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/16 8:41:00 [只看该作者]

按照上面的代码 重置以后还是报错 提示找不到方向列 郁闷了 帮助看了好几遍都不知道该如何改代码了

 回到顶部
帅哥哟,离线,有人找我吗?
don
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/10/16 8:50:00 [只看该作者]

上传文件,说明目的

 回到顶部
帅哥哟,离线,有人找我吗?
hwmbing11
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/16 8:58:00 [只看该作者]

当前库存数量等于出入库明细表的同编号商品入库数量-出库数量  就是想要实现这个目的 谢谢了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
hwmbing11
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/16 8:59:00 [只看该作者]

都是业余时间在搞 工作比较忙 都是上班的时候手机上面看帮助文件 有时间了才搞一搞

 回到顶部
帅哥哟,离线,有人找我吗?
don
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/10/16 9:25:00 [只看该作者]

If e.DataCol.Name = "数量"
    Dim rss,css As Double
    Dim rs,cs As String
    Dim pr As DataRow
    rs = "编号 = '" & e.DataRow("编号") & "'And [方向] = '入库'"
    cs = rs.replace("入库","出库")
    
    rss  = e.DataTable.Compute("sum(数量)",rs)
    css  = e.DataTable.Compute("sum(数量)",cs)
    pr =  e.DataRow.GetParentRow("当前库存")
    If pr IsNot Nothing Then
        pr("数量") = rss  - css
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
hwmbing11
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/16 9:37:00 [只看该作者]

感谢您的解答 看来设计代码的理念比较重要啊

 回到顶部
帅哥哟,离线,有人找我吗?
hwmbing11
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/16 9:41:00 [只看该作者]

还是有些搞不懂 以前的那个代码为什么会提示找不到方向列呢 编程的基础比较弱 是不是需要找本VB来补补课呢

 回到顶部