| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 732 人关注过本帖
标题:[求助]如何限制输入内容?
只看楼主 加入收藏
michael_yin
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-1-20
收藏
 问题点数:0 回复次数:13 
[求助]如何限制输入内容?
有两表:
表一中:
型号 模号
A T1
A T2
A T3
B T1
B T2
B T4

表二:
型号 模号 数量
A ? 1000

问在表二中输入型号A时,如何限制模号只能输入T1,T2或T3?
搜索更多相关主题的帖子: 输入 
2007-08-01 20:30
michael_yin
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-1-20
收藏
得分:0 
人呢?
2007-08-01 20:56
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
查找一下..再判断就行了.

我的msn: myfend@
2007-08-01 21:10
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
LS的MM
好久没在VB这见到你了

Repeat  Life=Study;Until (death);
2007-08-01 21:17
michael_yin
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-1-20
收藏
得分:0 
因为我准备学习学习VB,也从没接触过任何语言,所以先看一下这个问题怎么解决,然后再学。
希望能有人回答
2007-08-03 07:24
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 

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


[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-08-03 09:05
hy851014
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-7-28
收藏
得分:0 

怎么弄的啊,还是不懂啊

2007-08-03 10:30
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
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
2007-08-03 11:46
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
用一个listbox
去记录集中找型号为A的资料,再循环记录集个数,把模号一个个加到listbox

2007-08-03 12:00
随风逐流
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:passerby
等 级:版主
威 望:8
帖 子:4054
专家分:271
注 册:2007-6-13
收藏
得分:0 

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

手写的,不知道有没有错


[url=http://www./html/6/6694/]极道金丹[/url][url=http://www./html/2/2849/]九阴九阳[/url][url=http://www./html/2/2596/]凡人修仙传[/url]
2007-08-03 12:04
快速回复:[求助]如何限制输入内容?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026389 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved