以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  条件判断,库存数量!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30218)

--  作者:xyw04
--  发布时间:2013/3/23 10:05:00
--  条件判断,库存数量!

大家早上好。 今天礼拜,又上来求指导了!

 

问题是这样的, 求库存数量,  根据 商品的代码,  商品的颜色, 判断商品的库存数量。(一个商品有多个颜色是很正常的!)

 

 

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


--  作者:唐尸三摆手
--  发布时间:2013/3/23 10:09:00
--  

\'没看你的项目,大致是这样

 

dim str1,str2 as string

str1 = 当前的代码

str2 = 当前的颜色

dim dr as datarow = datatables("库存").find("代码 = \'"& str1 &"\' and 颜色 = \'"& str2 &"\'")

if dr isnot nothing then

当前行的库存量 = dr("库存量")

end if


--  作者:xyw04
--  发布时间:2013/3/23 10:28:00
--  

当前行的库存量 = dr("库存量")  语法错误

 

当前库存量:控件 "Label_kcsl"


--  作者:xyw04
--  发布时间:2013/3/23 10:32:00
--  

Dim str1,str2 As String

str1 = "Label_spdm"

str2 = "ComboBox_ysfl"

Dim dr As DataRow = DataTables("库存明细表").find("商品代码 = \'"& str1 &"\' and 颜色分类 = \'"& str2 &"\'")

If dr IsNot Nothing Then

e.Form.Controls("Label_kcsl").Text = dr("库存数量")

End If

 

ComboBox_ysfl   改变后,不执行

 


--  作者:唐尸三摆手
--  发布时间:2013/3/23 10:35:00
--  

\'窗口增加一个按钮,代码如下

 

Dim str1,str2 As String
str1 = e.Form.Controls("商品代码").value
str2 = e.Form.Controls("颜色分类").value
Dim num As Double = DataTables("库存明细表").compute("sum(库存数量)","商品代码 = \'"& str1 &"\' and 颜色分类 = \'"& str2 &"\'")
e.Form.Controls("Label2").text = num


--  作者:xyw04
--  发布时间:2013/3/23 10:46:00
--  
ComboBox_ysfl  不属于 label 公共成员
--  作者:xyw04
--  发布时间:2013/3/23 10:52:00
--  
感谢 muhua ,不仅仅帮我解答了问题,还在问题上,更加完善! 谢谢