有两表：
表一中：
型号 模号
A T1
A T2
A T3
B T1
B T2
B T4

表二：
型号 模号 数量
A ？ 1000

问在表二中输入型号A时，如何限制模号只能输入T1，T2或T3？

人呢？

查找一下..再判断就行了.

LS的MM
好久没在VB这见到你了

因为我准备学习学习VB，也从没接触过任何语言，所以先看一下这个问题怎么解决，然后再学。
希望能有人回答

把表一的内容A的型号提出来.然后循环判断嘛

怎么弄的啊,还是不懂啊

Sub Text2_KeyPress(KeyCode As Byte)
If Text2.Text="" Then
If KeyCode<>Asc("T") Then KeyCode=0:Exit Sub
Else
If Instr(0,"123",Chr(KeyCode)=0 Then
KeyCode=0:Exit Sub
End If
'瞎写的。估计是错的。有错不要找我
End Sub

用一个listbox
去记录集中找型号为A的资料,再循环记录集个数,把模号一个个加到listbox

Private function panduan()as boolean
dim rs as object
dim ocnn as object
dim strsql as string
dim iscunzai as boolean

iscunzai =false
set ocnn=createoject("adodb.connection")
set rs=createoject("ADODB.Recordset")
'ocnn 数据库连接 自己写

strsql="select 模号 from 表一 where 型号='A'"
rs.open strSql, ocnn, adOpenKeyset, adLockOptimistic
do while not rs.eof
if rs(0)=trim$(text1.text) then
iscunzai =true
exit do

end if
rs.movenext

loop
panduan=iscunzai

End Sub
表一中：
型号 模号
Private Sub text1_LostFocus()
if panduan=false then
msgbox "类型不存在"
text1.SetFocus
end if

End Sub

手写的,不知道有没有错