- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助（多条件判断引用） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109828)
-- 发布时间：2017/11/20 21:19:00
-- 求助（多条件判断引用）
有2个表， 一个单价表，一个销售表
想在销售表里输入客户，地方，数量，自动从单价表里找到数量在期初数量和限定数量之间的单价填入销售表的单价里
因为多了条件判断，实在写不出代码
我本身写的是：
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "客户","客户","地方","数量"
If dr.Isnull("客户") OrElse dr.Isnull("客户") OrElse dr.Isnull("地方") OrElse dr.Isnull("数量") Then
dr("单价") = Nothing
Else
Dim pr As DataRow
pr = DataTable("单价").find("客户 = \'" & dr("客户") &"\'" AndAlso "客户 = \'" & dr("客户") &"\'" AndAlso dr("数量") >= dr(DataTables("单价").DataRows("期初数量")) AndAlso dr("数量") < dr(DataTables("单价").DataRows("限定数量")))
dr("单价") = pr("单价")
End If
End Select
显示出错，datatable不能用表达式
疯了1天了！求帮助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/11/20 21:29:00
--
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "客户","地方","数量"
If dr.Isnull("客户") OrElse dr.Isnull("地方") OrElse dr.Isnull("数量") Then
dr("单价") = Nothing
Else
Dim pr As DataRow
pr = DataTables("单价").find("客户 = \'" & dr("客户") & "\' and 地方 = \'" & dr("地方") & "\' and 期初数量 <= " & dr("数量") & " and 限定数量 > " & dr("数量"))
If pr IsNot Nothing Then
dr("单价") = pr("单价")
else
dr("单价") = Nothing
End If
End If
End Select
[此贴子已经被作者于2017/11/20 21:30:42编辑过]
-- 发布时间：2017/11/21 9:09:00
--
非常感谢！
-- 发布时间：2017/11/21 10:07:00
--
麻烦再问下，这行最后为什么不加上 &” ？ pr = DataTables("单价").find("客户 = \'" & dr("客户") & "\' and 地方 = \'" & dr("地方") & "\' and 期初数量 <= " & dr("数量") & " and 限定数量 > " & dr("数量"))
加上后提示表达式出错 pr = DataTables("单价").find("客户 = \'" & dr("客户") & "\' and 地方 = \'" & dr("地方") & "\' and 期初数量 <= " & dr("数量") & " and 限定数量 > " & dr("数量") & ”)
这是为什么?
-- 发布时间：2017/11/21 10:18:00
--
如果要加上，就加上 & ""
看看 http://www.foxtable.com/webhelp/scr/0221.htm