以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数组修改不能保存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126142)
--  作者：lur320
--  发布时间：2018/10/15 14:21:00
--  数组修改不能保存
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循环的时候更新数据，即将解密的数据保存在数组里面？
--  作者：lur320
--  发布时间：2018/10/15 14:23:00
--  
目前的解决方法是：
For Each approv In approvs
‘’‘’approv=DecryptText(approv, pridxs(approvs.Indexof(approv)), "ucode")
‘’‘’MessageBox.Show(approv)  ‘此处显示解密后的正常数据。

xxxx.add(DecryptText(approv, pridxs(approvs.Indexof(approv)), "ucode"))
Next

问题解决了，但我想知道如何修改原数字的每个数据？
--  作者：有点甜
--  发布时间：2018/10/15 14:49:00
--  

参考

 

Dim ls = DataTables("表A").GetValues("第一列")
For i As Integer = 0 To ls.count-1
    output.show(ls(i))
    ls(i) = "abcdefg"
Next

For i As Integer = 0 To ls.count-1
    output.show(ls(i))
Next
--  作者：lur320
--  发布时间：2018/10/15 15:27:00
--  
你这个依旧是在数据库有更新数据，而我想只有有没有办法在代码里面就修改原数组的值，而不是新建一个数组。
算了，不深究了
--  作者：有点甜
--  发布时间：2018/10/15 15:29:00
--  

无法理解你的意思。

 

如果你要修改表格的值，参考

 

http://www.foxtable.com/webhelp/scr/2900.htm