Foxtable(狐表) → 用户栏目 → 专家坐堂 → 同表查找价格与跨表查找价格


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

主题：同表查找价格与跨表查找价格
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/11 19:01:00 [显示全部帖子]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/14 17:43:00 [显示全部帖子]

单独写代码


Select Case e.DataCol.Name
    Case "品号","单据", "来源", "单价"
        msgbox(123)
        Dim dr As DataRow = e.DataRow
        If dr("来源") = "销货单" OrElse dr("来源") = "领料单" Then
            Dim pr = DataTables("出入库明细").Find("品号 = '" & dr("品号") & "' and _Identify < " & dr("_Identify"), "_Identify desc")
            If pr IsNot Nothing Then
                dr("单价") = pr("单价")
            End If
        End If
End Select

[此贴子已经被作者于2018/5/15 15:27:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/15 15:27:00 [显示全部帖子]

代码改成这样

 

Select Case e.DataCol.Name
    Case "品号","单据", "来源", "单价"
        msgbox(123)
        Dim dr As DataRow = e.DataRow
        If dr("来源") = "销货单" OrElse dr("来源") = "领料单" Then
            Dim pr = DataTables("出入库明细").Find("品号 = '" & dr("品号") & "' and _Identify < " & dr("_Identify"), "_Identify desc")
            If pr IsNot Nothing Then
                dr("单价") = pr("单价")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/18 16:06:00 [显示全部帖子]


Select Case e.DataCol.Name
    Case "生产入库单号","子件品号","主件品号"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
       
        Dim filter1 As String
        filter1 = "品号 = '" & dr("子件品号") & "' And 单号 = '" & dr("生产入库单号")  & "'"
        pr = DataTables("出入库成本").Find(filter1)
        If pr IsNot Nothing Then
            dr("单价") = pr("结存单价")
        Else
            Dim filter2 As String
            filter2 = "成品品号 = '" & dr("主件品号") & "' And 半成品品名 = '" & dr("子件品号")  & "'"
            pr = DataTables("半成品成本").Find(filter2)
            If pr IsNot Nothing Then
                dr("单价") = pr("成本单价")
            Else
                dr("单价") = Nothing
            End If
        End If
End Select

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/18 16:49:00 [显示全部帖子]

以下是引用DLW77在2018/5/18 16:43:00的发言：
跟之前一样，没数据写入

 

1、加入msgbox，看能否弹出；

 

2、如果msgbox弹出，还是没有值，说明你写的条件不对，或者是查找不到数据。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询