主题：最大时间

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