此主题相关图片如下：1.jpg

想输入会员编号，点选定后，姓名、姓别、年龄、联系电话从会员表中提起，我参阅了帮助文件中的自动输入 

If e.DataCol.Name = "产品编号" Then \'发生变化的是产品编号吗?
    \'在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("产品").Find("编号 = " & "\'" & e.DataRow("产品编号") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If

我现在困惑的是自动输入的代码是要写在选定按钮上呢，还是写在会员表的DataColChanged上。

因为我这个功能的实现，是要通过点击“选定”按钮实现

写了几次都不成功，真是有点打击势气，呵呵，还是哪位狐友大哥帮忙给个建议，或者直接给我写段代码，这里先谢谢了

Dim dr As DataRow

    dr = DataTables("会员表").Find("[会员编号]= \'  e.Form.Controls("gysname").value \'")

    If dr IsNot Nothing Then

        If forms("窗口").Opened Then

            forms("窗口").Controls("TextBox01").value=dr("姓名")

            forms("窗口").Controls("TextBox1").value=dr("性别")

           else

return

end if

差不多这样吧，你可以多看看帮助

这些都可以自己写的

用手机编写的，可能会错误，但是思路没有问题

e.Form.AcceptButton = "Button1"

到些为止，这个功能终于成功了，这里要感谢狐爸以及楼上的狐友们所提供的无私奉献。

应该写成

dr = DataTables("会员表").Find("会员编号 = " & "\'" &  e.Form.Controls("TextBox6").value & "\'")

恩，手机编写的，没有测试，思路正确，慢慢调试

你的正解