[求助]如何限制输入内容?
有两表:表一中:
型号 模号
A T1
A T2
A T3
B T1
B T2
B T4
表二:
型号 模号 数量
A ? 1000
问在表二中输入型号A时,如何限制模号只能输入T1,T2或T3?
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
手写的,不知道有没有错