Dim approvs As new List(of String)
approvs=DataTables("trackinglist").SQLGetValues("checker1_MD5","prstatus='ongoing'")
Dim pridxs As new List(of String)
pridxs=DataTables("trackinglist").SQLGetValues("PRindex","prstatus='ongoing'")
Dim approv As String
For Each approv In approvs
approv=DecryptText(approv, pridxs(approvs.Indexof(approv)), "ucode")
MessageBox.Show(approv) ‘此处显示解密后的正常数据。
Next
For Each approv In approvs
MessageBox.Show(approv) ‘此处工作不正常,显示的依旧是解密前的数据’
Next
如何在第一个For循环的时候更新数据,即将解密的数据保存在数组里面?