以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断一个订单号是否有多种商品怎么弄  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12689)
--  作者：cxcx
--  发布时间：2011/9/11 14:54:00
--  判断一个订单号是否有多种商品怎么弄

 判断一个订单号是只有一种商品还是有多种商品组成的 比如 一种就是返回整柜 多种就返回拼柜

[此贴子已经被作者于2011-9-11 16:03:19编辑过]
--  作者：e-png
--  发布时间：2011/9/11 15:21:00
--  
没全懂，给个例子。
--  作者：cxcx
--  发布时间：2011/9/11 16:03:00
--  

订单号 品种 数量    类型

1000  xx      10    整柜      

1001  xx      1      拼柜

1001  xy      2      拼柜

 

一个订单号如果有多个品种类型就显示拼柜 如果只有一个且数量大于10就显示整柜

 

 
--  作者：foxor
--  发布时间：2011/9/11 16:16:00
--  

if e.datacol.name="数量" then

  if e.datarow("数量")>1 then

     e.datarow("类型")="拼柜"

     else

     e.datarow("类型")="整柜"

  end if

end if
--  作者：e-png
--  发布时间：2011/9/11 16:40:00
--  
用count判断是否是一个或多个品种。
--  作者：cxcx
--  发布时间：2011/9/12 13:25:00
--  
count 怎么用 发给帮助文件链接~~~
--  作者：czy
--  发布时间：2011/9/12 13:47:00
--  
\'DataColChanged事件
Select Case e.DataCol.Name
    Case "订单号","品种"
        Dim dr As DataRow = e.DataRow
        If e.DataTable.GetUniqueValues("[订单号] = \'" & dr("订单号") & "\'","品种").Count > 1 Then
            Dim drs As List(Of DataRow) = e.DataTable.Select("[订单号] = \'" & dr("订单号") & "\'")
            For Each r As DataRow In drs
                r("类型") = "拼柜"
            Next
        Else
            dr("类型") = "整柜"
        End If
End Select