[求助] 自动计算库存公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4669人关注过本帖树形打印复制链接主题：[求助] 自动计算库存公式

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/7 15:30:00 [显示全部帖子]

参考帮助 http://www.foxtable.com/help/topics/1472.htm

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/7 16:04:00 [显示全部帖子]

出库列不是数值类型

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/7 16:40:00 [显示全部帖子]

有什么问题? 出现什么错误?

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/7 16:44:00 [显示全部帖子]

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 出入库='入库'")

pr("库存数量") = i2-i1

end if