- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 产品条件，判断库存！ 代码报错，郁闷 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30045)
-- 发布时间：2013/3/20 7:38:00
-- 产品条件，判断库存！ 代码报错，郁闷
表A 商品代码= 控件 商品代码
表A 颜色分类= 控件 颜色分类
以上符合，
在 Label_kcsl 显示符合库存数量！
Dim dr As DataRow
dr = DataTables("表A").Find("商品代码 = \'" & e.Form.Controls("Label_spdm").value & "\' And 颜色分类 = \'" & e.Form.Controls("ComboBox_ysfl").value & " \'")
If dr Is Nothing Then
e.Form.Controls("Label_kcsl").Text = dr("库存数量")
End If
-- 发布时间：2013/3/20 9:50:00
--
不知道， 怎么搞的！！！ 麻烦
此主题相关图片如下：qq截图20130320094907.png
-- 发布时间：2013/3/20 9:51:00
--
将 ComboBox_ysfl 改成 控件 Label_ysfl 也是 同样的提示！！
是不是 代码 表达错了！
-- 发布时间：2013/3/20 10:02:00
--
根据错误提示和控件名称，你的Label_spdm可能是Label控件，Label控件没有Value属性的，只有Text属性。
Dim dr As DataRow
dr = DataTables("表A").Find("商品代码 = \'" & e.Form.Controls("Label_spdm").Text & "\' And 颜色分类 = \'" & e.Form.Controls("ComboBox_ysfl").value & "\'")
If dr Is Nothing Then
e.Form.Controls("Label_kcsl").Text = dr("库存数量")
End If
-- 发布时间：2013/3/20 10:14:00
--
Dim dr As DataRow
dr = DataTables("表A").Find("商品代码 = \'" & e.Form.Controls("Label_spdm").Text & "\' And 颜色分类 = \'" & e.Form.Controls("ComboBox_ysfl").value & "\'")
If dr Is Nothing Then
e.Form.Controls("Label_kcsl").Text = dr("库存数量")
End If
这段代码，有问题， 表达不出来。。 学艺不精…… 请狐爸指点.
表A 商品代码= 控件 商品代码
表A 颜色分类= 控件 颜色分类
以上符合，
在 Label_kcsl 显示符合库存数量！
最后，放在 哪个控件上，比较合适？ 还是全局窗口事件
-- 发布时间：2013/3/20 10:20:00
--
直接做个例子发上来，设计好表，输入几行数据，设计好窗口，写好自己能写的代码，然后说明自己的目的是什么，遇到了什么问题。
你现在这样提问，我们想帮你也无从下手的哦