Foxtable(狐表)用户栏目专家坐堂 → 求助(多条件判断引用)


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

主题:求助(多条件判断引用)

帅哥哟,离线,有人找我吗?
lin1221
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:104 积分:1038 威望:0 精华:0 注册:2015/2/9 21:01:00
求助(多条件判断引用)  发帖心情 Post By: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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106761 积分:543006 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lin1221
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:104 积分:1038 威望:0 精华:0 注册:2015/2/9 21:01:00
  发帖心情 Post By:2017/11/21 9:09:00 [只看该作者]

非常感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
lin1221
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:104 积分:1038 威望:0 精华:0 注册:2015/2/9 21:01:00
  发帖心情 Post By: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("数量") & ”)

这是为什么?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/21 10:18:00 [只看该作者]

如果要加上,就加上 & ""

 

看看 http://www.foxtable.com/webhelp/scr/0221.htm

 


 回到顶部