'Dim phs() As String = DataTables("弯头开料单").GetComboListString("piao号年月日订单号制造产品号", Tables("弯头开料单").filter).Split("|")
'For ph As Integer = 0 To phs.length - 1
' Dim Filter As String = "[piao号年月日订单号制造产品号] ='" & phs(ph) & "'"
' Dim drs As List(Of DataRow) = DataTables("弯头开料单").Select(Filter)
' Dim ln As Integer = 1
' For Each dr As DataRow In drs
' dr("同套行序") = ln
' ln = ln + 1
' Next
'Next
For i1 As Integer = 0 To n1
Dim r1 As Row = CurrentTable.Rows(i1)
Dim max As String = Tables("弯头开料单").Compute("Max(同套行序)", "piao号年月日订单号制造产品号 = '" & r1("piao号年月日订单号制造产品号") & "' and [_Identify] <> " & r1("_Identify"))
If max > "" Then '如果存在最大号
r1("同套行序") = max + 1
Else
r1("同套行序") = 1
End If
Next
上面两种方法我都试了，好像都是跟加载数据的多少有关。理论上来说，哪个方法会比较快点呢？
加好友 
发短信
Post By：2023/11/9 16:36:00 [显示全部帖子]
