老师好！我写了一个循环代码，希望从b To a Step -1每次执行完毕，字符（id = ""）变成空值重新使用，出来的结果是id的值在不断累加，请问如何修改？
Dim a As Integer = 0 '完善采购合同中到港时间字段
Dim b As Integer = Tables("采购合同").rows.Count - 1
For i As Integer = b To a Step -1
Tables("采购合同").Position = i
Dim Filter1 As String
If Tables("采购合同.物流计划副表采购合同").Rows.Count = 0 Then
Filter1 = "[_Identify] is null"
Else
Dim ids1 As String
For Each dr As Row In Tables("采购合同.物流计划副表采购合同").Rows
ids1 = ids1 & ",'" & dr("指令单号") & "'"
Next
ids1 = ids1.Trim(",")
Filter1 = "[采购物流计划指令单号] In (" & ids1 & ")"
End If
Tables("运输单副表采购合同").Filter = Filter1
Dim id As String
For Each dr As Row In Tables("运输单副表采购合同").Rows
id = id & "," & dr("目的地到港时间")
Next
Tables("采购合同").rows(i)("到港时间") = id
id = ""
Next
加好友 
发短信
Post By：2022/7/19 11:07:00 [只看该作者]
