标题:text()数组控件问题 求帮忙
取消只看楼主
味无味
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2013-10-11
结帖率:80%
已结贴  问题点数:10 回复次数:1 
text()数组控件问题 求帮忙
form1上有text1(0)--text(4)5个数组控件,每个控件中有5组数,用循环求每个控件的和,即text(0)的和text(1)的和....text(5)的和,在text2中显示
Private Sub Command3_Click()
Dim s() As String
Dim i As Integer, index As Integer
Text2.Text = ""
s = Split(Text1(i).Text)
Dim sum As Double
For i = 0 To UBound(s)
If IsNumeric(s(i)) Then sum = sum + (s(i))
For index = 0 To 4
    index = index + 1
 If Controls("Text1(" & index & ")").Text Then s = Split(Text1(i).Text)
 sum = sum + (s(i))
Next
Next
 Text2.Text = Text2.Text & sum & vbNewLine
End Sub

结果显示“未找到控件text1(1)”,求老师帮忙
搜索更多相关主题的帖子: Text1 
2014-12-16 12:15
味无味
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2013-10-11
得分:0 
我要的是在text2中逐行显示text1(0)--text1(5)结果
2014-12-16 13:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-440000-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.949322 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved