以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断条件问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109654)

--  作者:Springamy
--  发布时间:2017/11/16 11:15:00
--  判断条件问题

 如下:原来的业务需求是付款的合同号没有重复的

       现在因为凭证金额过大,经常需要拆分,所以一个合同号的订单有可能会有几个凭证付款

        我想加入一个判断:如果num >1 andalso (相同合同号之间的凭证号不一致) 的的时候  检验 = OK

 问题:       同一个表中,同一个合同号,不同的凭证号,我怎么比对呢?

 

num=DataTables("批量付款TEMP").Compute("count([合同号])","[合同号]=\'" & c & "\'") 

 If num>1 Then

        dr("校验") =dr("校验") & "采购订单号与上面有重复!"

 End If

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/11/16 11:46:00
--  

num=DataTables("批量付款TEMP").Compute("count([合同号])","[合同号]=\'" & c & "\'")
Dim num2 As Integer = DataTables("批量付款TEMP").GetValues("凭证号","[合同号]=\'" & c & "\'").count

If num>num2 Then
    dr("校验") =dr("校验") & "采购订单号与上面有重复!" 
End If