数据库是ACCESS，表格名称为表1，在窗体设置4个combobox，combo1为字母A-Z、combo2为数字01-99、combo3为数字01-99、combo4为状态，只有“使用”和“空闲”两个选项，还有一个text“备注”。假设combo1选择A,combo2选择01,combo3选择16,combo4选择使用，text备注不填，请教大神们，如何在VB中实现在表格中批量添加这些数据？代码怎么写？combo4和备注是统一的，变化的只有combo1-3。

[此贴子已经被作者于2016-6-5 20:46编辑过]

是的，大概就是这个意思，不过有一点，我想灵活一点，前面那个不规定是A，也可以是其它字母B-Z或01-99，其实就像平时用的excel表，内容是根据需要输入，下拉的话，会自动填充序列，只不过在VB中我不会实现。不知道可不可以帮我做一个，谢谢。

[此贴子已经被作者于2016-6-6 23:19编辑过]

我的意思是我在文本输入A01-01，然后按添加按钮，添加到表中，一条一条信息录入太麻烦，所以才想输入一个比较灵活的字符，批量添加进表里。我是新手哈，用COMBO是我自己想出来的，比如com1选A，com2选01，com3选16，就是批量添加A01-01到A01-16这段。

[此贴子已经被作者于2016-6-6 23:16编辑过]

状态在批量添加的那组数据中是一致的，请问代码应该怎么写？

您好
if i<10 then  no3= "0" & i
 TheID =no1  &  no2 & "-" no3
这句话看不明白，能解释下吗？
想了下，明白了，i<10 就是定义它能显示01-09，但我这里显示出来的是1-9
现在已经搞掂了

[此贴子已经被作者于2016-6-7 22:05编辑过]

您好，每次录入的数量不是固定，是自己输入多少就录入多少，例如A01-01到A01-(02-99)，自己输入多少就录多少，不用自动跳转到A02，A01录入结束，然后再自行设置A02录入多少。第一个是字母或数字想要灵活设置，也就是起始号码可以自行灵活设置，终止号码是根据自己需要设置。

For i= 1 to cint(trim(combo3))
 Dim no1 , no2 , no3 as string  
 no1 = trim(combo1)
 no2 = trim(combo2)
 no3= i
 if i<10 then  no3= "0" & i
 TheID =no1  &  no2 & "-" no3

TheID 提示变量未定义

在窗体上设置了一个隐藏的文本框定义为TheID.text，解决了。

[此贴子已经被作者于2016-6-7 20:16编辑过]

非常感谢