以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态名称的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57847)

--  作者:qianqian1530
--  发布时间:2014/10/5 22:21:00
--  动态名称的问题
Dim 项目1 As String
Dim 项目2 As String
Dim 项目3 As String
Dim 项目4 As String
Dim 项目5 As String
Dim 项目6 As String
Dim 项目7 As String
Dim 项目8 As String
Dim 项目9 As String
Dim 项目10 As String

Dim i As Integer
For i = 1 To 10
    If i = 10 Then
        Exit For
    End If
    If e.Form.ExistControl("項目" & i)= True
        项目 & i = i
    End If
Next


项目 & i = i 这么些不行么..

--  作者:有点甜
--  发布时间:2014/10/5 22:22:00
--  
 不能,必须用数组。
--  作者:菲舍尔
--  发布时间:2014/10/6 0:41:00
--  
呵呵,好久没见到 & 这么用了,这是foxpro中的东东,VB.net是不支持的