以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么写这个条件?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85576)

--  作者:jinzhengbe
--  发布时间:2016/5/28 23:12:00
--  怎么写这个条件?

If e.DataCol.name = "shuliang" Then
    If e.DataRow("shuliang") Then
        Dim t As Table = Tables("weixindanhao.weixin.weixinminxi")
        For i As Integer = t.rows.count-1 To 0 Step -1
            t.rows(i).delete
        Next
                                                                       
        Dim cc As Integer =e.DataRow("shuliang")
        t.addnew(cc)
        t.save()
    End If


想在上面红色的部分添加下面的条件
 如果weixinminxi 表的 name 的最大 id < minxi 表相同name的最大id     then
    
       t.addnew(cc)
           t.save()

else  提示 缺少库存数量,并且结束

场景:1

商品a  minxi表的 最大 最大id 为10
商品a  weixinminxi表的 最大 id 为 5
dim f as inter =  minxi表的最大id - weixinmingxi表的最大id
then 
t.addnew(f)
t.save
masess("缺少5个库存“)

场景:2

商品a  minxi表的 最大 最大id 为10
商品a  weixinminxi表的 最大 id 为 10
dim f as inter =  minxi表的最大id - weixinmingxi表的最大id
then 

masess("缺少10个库存“)
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:mifeng2.foxdb

[此贴子已经被作者于2016/5/28 23:19:40编辑过]

--  作者:大红袍
--  发布时间:2016/5/29 23:28:00
--  

 

If DataTables("weixinminxi").Compute("max(id)", "name = \'" & e.datarow("name") & "\'") < DataTables("minxi").Compute("max(id)", "name = \'" & e.datarow("name") & "\'") then