(VB+ACCESS)中如何同时添加多个记录

在一个窗体上放多条记录，只能存储在一个记录中，如果你的表单中包含多个输入框，可以根据不同的名称存储在多个记录中。

例如表单群：A1,A2,A3...,B1,B2,B3...,C1,C2,C3...,N1,N2,N3...

存储：

FOR T=1 TO N

存储内容(不用在解释了吧)

NEXT

如果按钮文字不同，可以通过sender.text来获取按下的按钮文字。如果文字相同，那只能对比其它的。比如对比handler，每个事件的handle不同。可以这么遍历，

dim buttons() as button={button1,button2}'放按钮

for each item in buttons

'遍历text的方法

if item.text=sender.text then

'遍历handle的方法

'if item.handle.tostring=sender.handle.tostring then

'要执行的语句

end if

1、首先，打开VB软件，在窗体上面添加一个列表框，如下图所示。

2、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

3、在窗体上面，添加两个命令按钮，如下图所示。

4、分别设置，两个命令按钮的属性，名称分别为“复制”，“清除”，如下图所示。

5、双击“清除”命令按钮，编辑其代码，如下图所示。

6、运行程序，验证结果。选中列表框中的“语文”，点击“复制”命令按钮，则在列表框中，复制了“语文”项目；再选择“政治”，点击“清除”命令按钮，则列表框中“政治”项目消失。如下图所示。

---