以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  最大的怎么算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86513)
--  作者：jinzhengbe
--  发布时间：2016/6/19 12:40:00
--  最大的怎么算
Dim dr As DataRow
    Dim Filter As String
    Filter = "[name] = \'" & e.DataRow("name") & "\' And [leiji] = \'" & e.DataRow("leiji") & "\'"
    dr = DataTables("minxi").Find(Filter ) \'在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then \'如果找到
        \'将找到行的区号?邮编内容填入到正在输入的行中.
        e.DataRow("cb") = dr("price")
        e.DataRow("pt") = dr("price1")
        e.DataRow("vip") = dr("vip")
        e.DataRow("vvip") = dr("vvip")
        e.DataRow("cvp") = dr("cvp")
        e.DataRow("used") =1
        e.DataRow("lirun")=e.DataRow("price")-e.DataRow("cb")   
        e.DataRow("yu")=dr("leiji") - e.DataRow("leiji")     
    Else If dr Is Nothing Then 
         e.Cancel = True
         msgbox("无法出库,库存不足")
       End If


紫色部分我想改为  e.datarow（“yu“）=dr最大的（”leiji“）- ed.atarow（”leiji“）
应该怎么改？
非常感谢！
 
--  作者：狐狸爸爸
--  发布时间：2016/6/19 21:53:00
--  

http://www.foxtable.com/help/topics/0393.htm