主题：箱号的代码

1、文件!!!
2、如結束箱号由开始箱号及箱数得到,则应用表达式!

结束箱号：[开始箱号] + [箱数]-1

Dim dr As DataRow
Dim T,T1,T2,T3 As String
T = e.datarow("_identify")
T1 = e.datarow("订单号")
T2 = e.datarow("口岸")
T3 = "[订单号] = '" & T1 & "' And [口岸] = '" & T2
T3 = T3 & "' And _identify < " & T
dr = e.DataTable.Find(T3,"_identify Desc")

If "订单号口岸".Indexof(e.DataCol.Name) >-1 Then

   If T1 Is Nothing OrElse T2 Is Nothing Then

      e.datarow("开始箱号") = Nothing

   Elseif dr Is Nothing Then
     
      e.datarow("开始箱号") = 1

   Else

      e.datarow("开始箱号") = dr("结束箱号")+1

   End if

End if