Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 自动计算库存公式


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

主题：[求助] 自动计算库存公式
帅哥哟，离线，有人找我吗？
Bin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/5/7 16:52:00 [只看该作者]

没道理.除非你还有其他代码.

上个例子看看
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2015/5/7 16:53:00 [只看该作者]

你这种，最好就用表达式。

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/5/7 17:32:00 [只看该作者]

可以啦，但是还有一个问题；就是这个命令只能在修改【收支数量】列内容的时候，【材料库存汇总表】才会进行计算；如果我是新增一行并进行数据录入的话、【材料库存汇总表】就不会进行计算。该怎么办？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/7 18:16:00 [只看该作者]

以下是引用wumingrong1在2015/5/7 17:32:00的发言：
可以啦，但是还有一个问题；就是这个命令只能在修改【收支数量】列内容的时候，【材料库存汇总表】才会进行计算；如果我是新增一行并进行数据录入的话、【材料库存汇总表】就不会进行计算。该怎么办？

 

原本写在datarowAdding事件的代码，写到datarowAdded
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/5/8 8:33:00 [只看该作者]

写到datarowAdded中提示


图片点击可在新窗口打开查看此主题相关图片如下：360截图20150508083228907.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/5/8 8:39:00 [只看该作者]

datarowAdded 没有 e.datacol.name 你可以把这个 Select Case 去掉

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/8 9:14:00 [只看该作者]

以下是引用大红袍在2015/5/7 18:16:00的发言：

 

原本写在datarowAdding事件的代码，写到datarowAdded

 

你有认真看吗？
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/5/8 10:38:00 [只看该作者]

如果我想当点击【保存】按钮时进行计算；我的这个公式该怎么修改？


Dim dr As DataRow = e.DataRow
Dim pr As DataRow
Dim i1,i2,i3,i4,i5,i6,i7 As Integer
pr = DataTables("材料库存汇总表").Find( "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'" )
If pr IsNot Nothing Then
    Dim s As String = "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'"
    
    i1 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='出库'")
    i2 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修'")
    i3 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='报废'")
    i4 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='请领入库'")
    i5 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修入库'")
    i6 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='缩容入库'")
    i7 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='入库'")
    pr("库存数量") = i7+i6+i5+i4-i3-i2-i1
    
End If



图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2015/5/8 11:14:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/8 11:29:00 [只看该作者]

Dim dr As Row = Tables("材料出入库登记表").Current
Dim pr As DataRow
Dim i1,i2,i3,i4,i5,i6,i7 As Integer
pr = DataTables("材料库存汇总表").Find( "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'" )
If pr IsNot Nothing Then
    Dim s As String = "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'"
   
    i1 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='出库'")
    i2 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修'")
    i3 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='报废'")
    i4 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='请领入库'")
    i5 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修入库'")
    i6 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='缩容入库'")
    i7 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='入库'")
    pr("库存数量") = i7+i6+i5+i4-i3-i2-i1
   
End If

 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2015/5/8 19:17:00 [只看该作者]

在窗口的AfterLoad中写有以下命令；提示错误

For Each dr As Row In Tables("材料出入库登记表").Rows
Dim pr As DataRow

Dim s As String = "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'"

pr = DataTables("材料库存汇总表").Find( "设备厂家='" & dr("设备厂家") & "' and 设备类型='" & dr("设备类型") & "' and 设备型号='" & dr("设备型号") & "' and 板件名称='" & dr("板件名称") & "' and 板件型号='" & dr("板件型号") & "' and 交直流电='" & dr("交直流电") & "'" )

If pr IsNot Nothing Then

    Dim i1,i2,i3,i4,i5,i6,i7 As Integer  
    i1 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='出库'")
    i2 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修'")
    i3 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='报废'")
    i4 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='请领入库'")
    i5 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='返修入库'")
    i6 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='缩容入库'")
    i7 = DataTables("材料出入库登记表").Compute("Sum(收支数量)",s & " And 出入库='入库'")
    pr("库存数量") = i7+i6+i5+i4-i3-i2-i1
    
Else

    pr("库存数量")  = "空"

End If
Next


图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05493 秒, 4 次数据查询