DataTables("system_config").load
Tables("system_config").sort="primary_key"
Dim StrName(Tables("system_config").Rows.Count) As String
Dim StrValue(Tables("system_config").Rows.Count) As String
Dim r2 As Row
For i=0 To Tables("system_config").Rows.Count-1
r2=Tables("system_config").Rows(i)
strname(i)= r2("var_name" )
strvalue(i)= r2("var_value" )
' output.Show ( i & " " & strname(i) & " " & strvalue(i) )
vars.Add ( strname(i) ,Gettype(String), strvalue(i) )
' i=i+1
Next
这样就可以 有 vars 的变数值是预先从资料库取出的
加好友 
发短信
Post By：2021/4/8 22:52:00 [显示全部帖子]
