有点甜等高手老师们，这两个控件怎么关联！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：5.png

此主题相关图片如下：6.png

有点甜老师，我按照你的代码，输入分数，能按这个范围出现，可是再选择以下条件时，就不是这个范围了，输入分数的控件怎么和下面的控件关联啊，以下是我的代码，还要加什么！

Dim v1 As String = e.form.controls("textbox1").text

Dim v2 As String = e.form.controls("textbox2").text

Tables("高考信息查询表").Filter = "zdffs >= " & v1 & " and zgffs <= " & v2

Dim Filter As String

With e.Form.Controls("院校地区:")

If .Value IsNot Nothing Then

Filter = "yxdq = '" & .Value & "'"

End If

End With

With e.Form.Controls("院校地址:")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "yxdz = '" & .Value & "'"

End If

End With

With e.Form.Controls("院校名称:")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "yxmc = '" & .Value & "'"

End If

End With

With e.Form.Controls("专业名称:")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "zymc = '" & .Value & "'"

End If

End With

With e.Form.Controls("年度:")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "nd = '" & .Value & "'"

End If

End With

With e.Form.Controls("科类:")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "kl = '" & .Value & "'"

End If

End With

If Filter > "" Then

Tables("高考信息查询表").Filter = Filter

End If

主题：有点甜等高手老师们，这两个控件怎么关联！