Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:判断一个订单号是否有多种商品怎么弄

1楼
cxcx 发表于:2011/9/11 14:54:00

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

[此贴子已经被作者于2011-9-11 16:03:19编辑过]
2楼
e-png 发表于:2011/9/11 15:21:00
没全懂,给个例子。
3楼
cxcx 发表于:2011/9/11 16:03:00

订单号 品种 数量    类型

1000  xx      10    整柜      

1001  xx      1      拼柜

1001  xy      2      拼柜

 

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

 

 

4楼
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

5楼
e-png 发表于:2011/9/11 16:40:00
用count判断是否是一个或多个品种。
6楼
cxcx 发表于:2011/9/12 13:25:00
count 怎么用 发给帮助文件链接~~~
7楼
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
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.