此主题相关图片如下：pr7pejz%y}$n2f2zgy}xwy6.jpg

我做了一个窗口查询如图:

看不到你的图。

如果这些输入框已经绑定到列了，那么直接设置表事件即可，参考:

http://www.foxtable.com/help/topics/1458.htm

不想绑定也行啊，一样的道理，找出对应的行，只是一个是将值写入列，一个是将值写入控件。

例如设置ComboBox的Validating事件：

      Dim dr As DataRow 
    dr = DataTables("产品").Find("编号 = " & "\'" & e.Sender.Value & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.Form.Controls("控件一").Value= dr("品名")
        e.Form.Controls("控件二").Value= dr("型号")
        e.Form.Controls("控件三").Value= dr("规格")
    End If

就会根据输入的编号，找出对应的品名、型号、规格写入其他输入框中。

还是不行啊!

Dim dr As DataRow
    dr = DataTables("人事资料").Find("Name = " & "\'" & e.Sender.Value & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.Form.Controls("card").Value = dr("CardNo")
    End If

    Dim dr As DataRow
    dr = DataTables("人事资料").Find("[Name]= \'" &  e.Sender.Value & "\'" )
    If dr IsNot Nothing 

        e.Form.Controls("card").Value = dr("CardNo")
    End If

搞不定，就做个简单例子发上来。

ValueChanged