以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最大时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29064)
--  作者：lsfdf
--  发布时间：2013/2/26 19:00:00
--  最大时间
 
图片点击可在新窗口打开查看此主题相关图片如下：未命名1.jpg
图片点击可在新窗口打开查看
   
我想在后台先遍历一下，各个产品的最大发货时间，如果每个产品的最大发货时间小于或者等于今天，那么所有产品的发货时间都是今天；
如果有1个产品的发货时间大于今天，那么所有产品的发货时间都是那个最大的时间
请教该如何遍历赋值呢
现在只能
Dim rq As Date = Date.Now
    Dim tb As Table = Tables("销售订单.销售明细")
    
    For Each dr As Row In tb.Rows
        Dim ld As Date
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "Select Max(发货时间) From {Table_8} Where 产品编号 = \'" & dr("产品编号") & "\'"
        ld = cmd.ExecuteScalar()
        MessageBox.show(ld)
       Next

[此贴子已经被作者于2013-2-26 19:00:47编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/2/26 19:15:00
--  
看不太明白，做个简单例子发上来说话
--  作者：lsy
--  发布时间：2013/2/26 20:28:00
--  

Dim maxdate As Date
For i As Integer = 0 To e.Table.Rows.Count - 1
    If maxdate < e.Table.Rows(i)("发货时间") Then
        maxdate = e.Table.Rows(i)("发货时间")
    End If
Next

If maxdate < = Date.Now Then
    For i As Integer = 0 To e.Table.Rows.Count - 1
        e.Table.Rows(i)("发货时间") = Date.Now
    Next
Else If maxdate > Date.Now Then
    For i As Integer = 0 To e.Table.Rows.Count - 1
        e.Table.Rows(i)("发货时间") = maxdate
    Next
End If

[此贴子已经被作者于2013-2-26 20:32:40编辑过]