能不能用For...Next给多个变量赋值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我需要给多个变量赋值，现在的代码如下

Dim rep As String = IIF(e.GetValues("rep") = "",e.PostValues("rep"),e.GetValues("rep"))

Dim cou As String = IIF(e.GetValues("cou") = "",e.PostValues("cou"),e.GetValues("cou"))

Dim sta As String = IIF(e.GetValues("sta") = "",e.PostValues("sta"),e.GetValues("sta"))

Dim cit As String = IIF(e.GetValues("cit") = "",e.PostValues("cit"),e.GetValues("cit"))

Dim key As String = IIF(e.GetValues("key") = "",e.PostValues("key"),e.GetValues("key"))

Dim quoid As String = IIF(e.GetValues("quoid") = "",e.PostValues("quoid"),e.GetValues("quoid"))

Dim soid As String = IIF(e.GetValues("soid") = "",e.PostValues("soid"),e.GetValues("soid"))

像这样的变量以后可能还会增加，所以想通过数据结合For...Next语句来给这些变量赋值，我的想法如下

Dim gks() As String = {"rep","cou","sta","cit","key","quoid","soid"}

For i As Integer = 0 To gks.Length - 1

gks(i) = IIF(e.GetValues(gks(i)) = "",e.PostValues(gks(i)),e.GetValues(gks(i)))

我知道这样值会赋给gks(0), gks(1)等数组成员。想请教我该如何才能实现把值赋给 rep， cou 等这些变量？

先行谢过！

可以尝试用字典来储存变量！访问字典的键来取值！
参考：

Dim jzd As new Dictionary(of String,String)
Dim gks() As String = {"rep","cou","sta","cit","key","quoid","soid"}
For i As Integer = 0 To gks.Length - 1
    Dim sz As String = IIF(1>2,"a",gks(i))
    If jzd.ContainsKey(gks(i))Then
        jzd(gks(i))=sz
    Else
        jzd.Add(gks(i),sz)
    End If
Next

output.show(jzd("rep"))

Dim gks() As String = {"rep","cou","sta","cit","key","quoid","soid"}
Dim dic As new Dictionary(Of String, String)
For i As Integer = 0 To gks.Length - 1
    If dic.ContainsKey(gks(i)) = False Then
        dic.Add(gks(i), 0)
    End If
    dic(gks(i)) = IIF(e.GetValues(gks(i)) = "",e.PostValues(gks(i)),e.GetValues(gks(i)))
Next

需要引用，就改成 dic("cou") 等。

多谢甜老师指教！

[此贴子已经被作者于2017/10/22 23:38:00编辑过]

主题：能不能用For...Next给多个变量赋值？