以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  录入窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186968)

--  作者:985123414
--  发布时间:2023/6/12 9:12:00
--  录入窗口
图片点击可在新窗口打开查看老师,用窗口给表中录入信息时,当姓名ComboBox1的值发生变化时,PictureBox1绑定的是另一个表的照片列,让PictureBox1根据ComboBox1的值显示录入的这个姓名的照片,代码应该怎样写呢
[此贴子已经被作者于2023/6/12 9:14:54编辑过]

--  作者:有点蓝
--  发布时间:2023/6/12 9:23:00
--  
ComboBox1、valuechanged事件

With Tables("另一个表")
    Dim r As Integer
    r
 = .FindRow("[
姓名] = \'" & e.sender.text & "\'"\'从 第一行开始查找
    If 
r >= 0 Then \'如果找到的话
        
.Position = \'定位到找到的行。
    
End If
End With

--  作者:985123414
--  发布时间:2023/6/12 9:36:00
--  
好的谢谢老师啦
--  作者:985123414
--  发布时间:2023/6/12 16:23:00
--  
老师,如果将筛选结果显示在label1中,代码要怎么修改呀
Dim Filter As String
With e.Form.Controls("combobox6")
    If .Value IsNot Nothing Then
        Filter = "姓名 like \'%" & .Value & "%\'"    
    End If
End With

--  作者:有点蓝
--  发布时间:2023/6/12 16:28:00
--  
什么筛选结果?举例说明一下
--  作者:985123414
--  发布时间:2023/6/12 16:48:00
--  
图片点击可在新窗口打开查看就是这样,上面选择姓名,下面显示相应信息
--  作者:有点蓝
--  发布时间:2023/6/12 16:57:00
--  
上传图片的方法:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
--  作者:985123414
--  发布时间:2023/6/12 17:04:00
--  
好的我重新传一下 
[此贴子已经被作者于2023/6/12 17:05:36编辑过]

--  作者:985123414
--  发布时间:2023/6/12 17:10:00
--  
就是这样老师,上面筛选姓名,下面显示相应内容
图片点击可在新窗口打开查看此主题相关图片如下:b63d6072-02f1-4f2b-8b14-6346aef44977.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/6/12 17:10:45编辑过]

--  作者:有点蓝
--  发布时间:2023/6/12 17:12:00
--  
控件绑定列即可:http://www.foxtable.com/webhelp/topics/0704.htm