VB程序题

1、KeyPress

2、KeyAscii >=48 AND KeyAscii <=57

3、Text2.Text &Chr(KeyAscii)

以上是在Text2上将每次符合条件的字符都依次连接起来显示。如果是每次要在Text2上只显示一个字符，则将第3空改为：

Chr(KeyAscii)

Private Sub Command1_Click()

Dim sText As String

sText = Text1.Text '之所以保存起来,是为效率考虑

If IsNumeric(sText) Then '为数字

'用两次If而不用And是也是因为效率问题

If Val(sText) <100 Then

If Val(sText) >0 Then

Print sText

Exit Sub

End If

End If

End If

Text1.Text = "" '若不符合条件则清空

Text1.SetFocus '顺便把焦点给它

End Sub

张三，男，110

张三，男，110

首先这样的数据

在数据库中是不允许存在的

因为没有意义

没有主键

你在数据库中删除

会出现错误

根据你的补充

你有主键

比如ID

你想不重复的取得

Name

+

Phone

字段

如果只需要这3列

select

name,gender,phone

from

table_1

group

by

name,gender,phone

如果不仅仅要这3列

而是和其他列一起显示

(注

只能取第一个主键内容了

)

select

min(id)

as

id

,name,gender,phone

from

table_1

group

byname,gender,phone

如果除了ID

还有其他列

就连接到上面的得到的这个表就好了

这应该是最简单的方法了

---