
item出错,是什么原因?
PrivateSubForm_Load()DimiAsIntegers(1,1)="疯子"s(1,2)="男"s(1,3)=90s(1,4)=80s(1,5)=97s(1...
Private Sub Form_Load()
Dim i As Integer
s(1, 1) = "疯子"
s(1, 2) = "男"
s(1, 3) = 90
s(1, 4) = 80
s(1, 5) = 97
s(1, 6) = s(1, 3) + s(1, 4) + s(1, 5)
s(2, 1) = "冷boss"
s(2, 2) = "男"
s(2, 3) = 80
s(2, 4) = 90
s(2, 5) = 99
s(2, 6) = s(2, 3) + s(2, 4) + s(2, 5)
place_z = 1
'place_z=1用来显示第一条记录
number_z = 2
'number_z=2,目前已有两个人员记录
For i = 0 To 5
Text1.Item(i).Text = s(place_z, i + 1)
Next i
'为了给大家演示方便,我在form_load事件中就添加了两条记录,并且直接显示第一条
End Sub
这上面是我在写VB编程时,输入的代码但是提示"未找到方法或数据成员".就是说"Text1.Item(i).Text = s(place_z, i + 1)"这句中的item不对.请问错在什么地方? 展开
Dim i As Integer
s(1, 1) = "疯子"
s(1, 2) = "男"
s(1, 3) = 90
s(1, 4) = 80
s(1, 5) = 97
s(1, 6) = s(1, 3) + s(1, 4) + s(1, 5)
s(2, 1) = "冷boss"
s(2, 2) = "男"
s(2, 3) = 80
s(2, 4) = 90
s(2, 5) = 99
s(2, 6) = s(2, 3) + s(2, 4) + s(2, 5)
place_z = 1
'place_z=1用来显示第一条记录
number_z = 2
'number_z=2,目前已有两个人员记录
For i = 0 To 5
Text1.Item(i).Text = s(place_z, i + 1)
Next i
'为了给大家演示方便,我在form_load事件中就添加了两条记录,并且直接显示第一条
End Sub
这上面是我在写VB编程时,输入的代码但是提示"未找到方法或数据成员".就是说"Text1.Item(i).Text = s(place_z, i + 1)"这句中的item不对.请问错在什么地方? 展开
2个回答
展开全部
Text1.Item(i).Text 头一次见textbox这么写的,很费解。
应该是text1(i).text吧!
----------------------------------------------
见笑!
学到了,原来这样也可以啊!!
应该是text1(i).text吧!
----------------------------------------------
见笑!
学到了,原来这样也可以啊!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询