一道VB自定义类型数组的应用题~ 高人帮忙给一下代码~ 急!~~~~ 谢谢了!!

[复制链接]
查看11 | 回复1 | 2009-6-14 23:20:49 | 显示全部楼层 |阅读模式
控件按要求自己加哈,不要给控件改名,不要做任何属性设置,程序代码如下:Private Type EmployeeInfoserial As Stringname As Stringwage As SingleEnd TypeDim work(1 To 5) As EmployeeInfoPrivate Sub Command1_Click()Static n As IntegerIf Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then MsgBox "新增时,文本框均不得留空!": Exit Subn...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行