我是新手，刚刚接触VB，自己尝试做一个小程序，在使用DATA控件时，已经实现了把文本框和数据表中的姓名、年龄、性别、编号等字段一一对应起来。但是我想实现一个简单查询功能，比如在“编号”对话框中输入一个号码（数据表中无重复编号），其他文本框会自动显示对应的内容，应该从何下手啊？我在网上查了好久都没有找到，谁来帮帮我好吗？

感谢大家帮助，可我还是没弄成，现在把文件传上去，好心的朋友再帮帮我吧，谢谢！

另外，如果不用按钮而是简单回车，能实现这个功能吗？

[此贴子已经被作者于2006-11-14 13:40:04编辑过]

data1.recordset.findfirst"号码='textid.text'"
这句有问题吗?

简单，我发个例子你看看，是个餐厅查询系统！大家可以交流一下　QQ:52885839

用Select语句

谢谢你们!我再试……

Private Sub Command1_Click() '查找
name1$ = Text1.Text
Data1.RecordSource = "select * from ...表 where 字段名=" & "'" & name1$ & "'"
Data1.Refresh
End Sub
Command1是查找按钮。用你的数据表替换“...表”，用表中的字段名替换“字段名”。OK了。

Private Sub Command1_Click() '查找
name1$ = Text1.Text
Data1.Recordset.FindFirst "字段名=" & "'" & name1$ & "'"

If Data1.Recordset.NoMatch Then
MsgBox "没有找到符合条件的数据", , "查找"
Exit Sub
End If
End Sub

多谢各位！