新建ab.dbf如下：

新建ab.scx如下：

我想在text1中输入编号后，再点击查询，就会显示在上面输入编号的所有信息，如编号、姓名、地址、性别。然后点击编辑，就可以对这些内容进行修改编辑了，最后再点击保存完成。因为用工具条的查找太麻烦了！请老师们赐教查询、编辑、保存这三个按键的代码！谢谢！

a=Thisform.text1.value
loca for 编号=a
if found()
    Thisform.编号1＝编号
    .....
else
    messagebox("查无此号！")
endif

其他类似

老师，我在查询里写上你的代码了，为什么我这里有2号的内容，为什么输入上2后，点击查询就出现查无此号，而且不显示2号的内容呢？

学编程不能偷懒，不要用表单向导生成表单，这是不好的习惯。

所以，老师我现在想积少成多，请您赐教！谢谢了！

你的“编号”是字符字段吗，如是，把“a=Thisform.text1.value”这句改成a=alltrim(Thisform.text1.value) 试试

显示这个！查询不到

哎！Thisform.编号1.value=编号

谢谢老师！笨学生再讨教您个问题！就是这个text1中不是编号，而是姓名。我的意思是说，我在这里输入上姓名后，就能显示我曾经输过这个姓名的其它同名人员的所有信息，要是我用以前的那个人的就选中，再编辑就可以了，若不是，我就再添加新的姓名录入新的所有信息。请问如何在text1中输入上姓名后，会显示曾经输入过同姓名的信息？

[此贴子已经被作者于2016-8-4 12:57编辑过]

请问！我在这里输入上姓名后，如何才能显示我曾经输过这个姓名的其它同名人员的所有信息，要是我用以前的那个人的就选中，它的信息就会在编号、姓名、地址、性别中显示.