主题：请教一个查询窗体的问题

  请问，在做的只是针对条件进行 查询某个表的记录时， 我发现查询是可以查询出数据来，但是也可以修改右侧表的数据，我按教程做的下拉式的查询条件选择，怎么可以控制在查询时，不会修改到右侧表体的数据呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:datebase.rar

此主题相关图片如下：查询窗体.jpg

另外： 1.在下拉式的查询条件中， 怎么自动把新增加的条件，增加到项目的自定义条件中？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模具管理.table

你好， 你这个版本我打不开啊，能否降到2014的版本，我打开学习一下，谢谢了

你不能升级到最新版的foxtable？

 

1、控件不要绑定表列；

 

2、代码

 

按钮

 

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .text <> Nothing Then
        Filter = "适用款号 = '" & .text & "'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .text <> Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .text & "'"
    End If
End With
With e.Form.Controls("cmbpart")
    If .text <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "部位 = '" & .text & "'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Text <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "单据日期 >= #" & .text & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .text <> Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "单据日期 <= #" & .text & "#"
    End If
End With
If e.Form.Controls("rdoHeXiao").Checked = True ' 如果已归还状态选择了"已归还"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "核销 = True"
End If
If e.Form.Controls("rdoweihe").Checked = True ' 如果核销状态选择了"未核"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "核销 = False Or 核销 Is Null"
End If
If Filter > "" Then
msgbox(filter)
    Tables("借出").Filter = Filter
End If

 

各个控件TextChanged事件

 

Dim btn As WinForm.Button = e.Form.Controls("查询")
btn.PerformClick

谢谢大红袍！  我还在学习中。。。。