Foxtable(狐表)用户栏目专家坐堂 → 求表达式或代码


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

主题:求表达式或代码

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
求表达式或代码  发帖心情 Post By:2008/12/1 12:15:00 [只看该作者]

 我有一表:
  A表: 色号        规格     进仓日期          进仓数量
           2783      402      2008-11-30    300
           2783      202      2008-11-30    300
           2783      402      2008-12-1      400
           2783      202      2008-12-1      200
           2784      402      2008-11-30    1000
           2784      402      2008-12-1      500

  B表:  色号       规格      库存量
           2783      402       700
           2783      202       500
           2784      402       1500

   B表中想按照:色号和规格输入时将A表中的同一色号和规格的进仓数量相加。    


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2008/12/1 12:16:00 [只看该作者]

  我想在A表的进仓数量有变化时,B表同时会有变化。

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2008/12/1 12:27:00 [只看该作者]

将规格关联,可以解决!真强。

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2008/12/1 12:41:00 [只看该作者]

关联应该以色号和规格多列关联。

代码差不多是这样吧。
DataColChanged事件中设置

If e.DataCol.Name = "色号" OrElse e.DataCol.Name = "规格" Then
    if e.DataRow("色号") = Nothing OrElse e.DataRow("规格") = Nothing
        e.DataRow("库存量") = Nothing
    Else
        e.DataRow("库存量") = DataTables("A表").Compute("Sum(进仓数量)","[色号] = '" & e.DataRow("色号") & "' And [规格] = '" & e.DataRow("规格") & "'")
    End If
End If

 

[此贴子已经被作者于2008-12-1 12:42:02编辑过]

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2008/12/1 16:41:00 [只看该作者]

以下是引用czy在2008-12-1 12:41:00的发言:
关联应该以色号和规格多列关联。

代码差不多是这样吧。
DataColChanged事件中设置

If e.DataCol.Name = "色号" OrElse e.DataCol.Name = "规格" Then
    if e.DataRow("色号") = Nothing OrElse e.DataRow("规格") = Nothing
        e.DataRow("库存量") = Nothing
    Else
        e.DataRow("库存量") = DataTables("A表").Compute("Sum(进仓数量)","[色号] = '" & e.DataRow("色号") & "' And [规格] = '" & e.DataRow("规格") & "'")
    End If
End If

 

[此贴子已经被作者于2008-12-1 12:42:02编辑过]

   多列关联可以做到了,谢谢,你的代码收藏!再次谢谢诶!


 回到顶部