专家坐堂-怎么设置按纽代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么设置按纽代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1404)

--  作者：julia
--  发布时间：2008/12/16 14:15:00
--  怎么设置按纽代码
“查询”，“删除”“插入”“撤销”“筛选”“关闭” 以上几个按纽的代码是怎么设置的？

--  作者：狐狸爸爸
--  发布时间：2008/12/16 14:17:00
--

按钮标题 Click事件代码

删除行 With Tables("订单")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With

锁定行 With Tables("订单")
    If .Current IsNot Nothing Then
        .Current.Locked = True
    End If
End With

取消锁定 With Tables("订单")
    If .Current IsNot Nothing Then
        .Current.Locked = False
    End If
End With

上一行 With Tables("订单")
    .Position = .Position - 1
End With

下一行 With Tables("订单")
    .Position = .Position + 1
End With

--  作者：julia
--  发布时间：2008/12/16 14:20:00
--
可是你这里还没有“查询”，“插入”“撤销”“筛选”“关闭”等几个的代码？这些代码怎么设置呀

--  作者：smileboy
--  发布时间：2008/12/16 14:24:00
--

一个例子

本课的示例文件为CaseStudy目录下的“窗口筛选.table”。

Foxtable本身的筛选功能已经非常强大，不过如果自己设计一个筛选窗口，用起来也许更顺手。
本课的目的就是设计一个下图所示的筛选窗口：

设计步骤

1、插入一个组合框，改名为“cmbProduct”，列表项目设为“PD01|PD02|PD03|PD04|PD05”，用于输入要筛选的产品。
2、插入一个组合框，改名为“cmbCustomer”，列表项目设为“CS01|CS02|CS03|CS04|CS05”，用于输入要筛选的客户。
3、插入一个组合框，改名为“cmbEmployee”，列表项目设为“EP01|EP02|EP03|EP04|EP05”，用于输入要筛选的雇员。
4、插入一个日期输入框，改为名“StartDate”，用于输入开始日期。
5、插入一个日期输入框，改为名“EndDate”，用于输入结束日期。
6、插入三个按钮，标题和Click事件代码按下表所示设置。

标题 Click事件代码

清除条件 e.Form.Controls("cmbProduct").Value = Nothing
e.Form.Controls("cmbCustomer").Value = Nothing
e.Form.Controls("cmbEmployee").Value = Nothing
e.Form.Controls("StartDate").Value = Nothing
e.Form.Controls("EndDate").Value = Nothing

撤销筛选 Tables("订单").ApplyFilter = False

开始筛选 Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = "产品 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("cmbEmployee")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "雇员 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("订单").Filter = Filter
End If

7、窗口类型设为独立，自动打开属性设为True。

设计中的窗口：

　

--  作者：julia
--  发布时间：2008/12/16 14:41:00
--

我这些是在主窗口中设置这些按纽的，主窗口的作用主要是能输入资料，及查找资料，所以请问一下设置“查询”是怎么设置

--  作者：狐狸爸爸
--  发布时间：2008/12/16 14:42:00
--
先看帮助。