以文本方式查看主题 - 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个库存“)
[此贴子已经被作者于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 |