新手求温暖 - vb吧

level 4

令狐冲那只猪楼主

n=ubound（stu）
redim stu（n+1）
为什么要n+1啊

2015年05月08日 07点05分 1

吧务

level 13

龙翔飞飞12

2句代码给谁看？

2015年05月08日 07点05分 2

令狐冲那只猪

Private type student record Stunum as string Names. As string Chinese as integer End type Dim stu() as student record Private sub command1_click N=uboumd(stu) Redim stu(n+1) With stu(n+1) .stunum=text1(0).text .names=text1(1).text .......... End with Text1(0).setfocus

2015年05月08日 07点05分

令狐冲那只猪

省略的代码就是赋值和显示的作用，用手机输太累l

2015年05月08日 07点05分

level 4

令狐冲那只猪楼主

Private type student record
Stunum as string
Names. As string
Chinese as integer
End type
Dim stu() as student record
Private sub command1_click
N=uboumd(stu)
Redim stu(n+1)
With stu(n+1)
.stunum=text1(0).text
.names=text1(1).text
..........
End with
Text1(0).setfocus

2015年05月08日 07点05分 3

吧务

level 13

龙翔飞飞12

command1应该是添加按钮，+1是为了添加一个数据

2015年05月08日 07点05分 4

令狐冲那只猪

可以不加1嘛

2015年05月08日 07点05分

龙翔飞飞12

回复
��ֻ��
:不+1怎么增加数据

2015年05月08日 07点05分