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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语法解法

共有20301人关注过本帖树形打印复制链接主题：语法解法

wtfwsk05

小大 121楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 17:19:00 [只看该作者]

我主要想知道存储过程是在那个事件中创建的

wtfwsk05

小大 122楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 17:28:00 [只看该作者]

老师：请问下，如何对窗口1中的表1筛选出最近10条记录，其代码应怎么写

有点蓝

小大 123楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105868 积分：538397 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/10/7 17:42:00 [只看该作者]

存储过程是在SqlServer数据库里创建的，和事件没有任何关系。

只能加载最近10条记录，无法筛选最近10条记录

Dim dt As DataTable = Tables("窗口1_table1").DataTable

dt.LoadFilter = ""

dt.LoadTop= 10

dt.LoadOrder = "[_Identify] desc"

dt.Load

wtfwsk05

小大 124楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 20:14:00 [只看该作者]

此主题相关图片如下：数据筛选.png

功能：点击了目录树节点，在窗口表中列出相关数据（我已知道怎么实现了）后，在在组合框中选中“近3笔”用于实现对窗口表中列出的数据进行筛选（这部份不知道怎么实现）

组合框combobox2的TextChanged：

Dim dst As Table = Tables("窗口1_Table3")

Select Case e.sender.text

Case "全部"

dst.Filter = ""

Case "近10笔"

Dim dt As DataTable = Tables("窗口1_table1").DataTable

dt.LoadFilter = ""

dt.LoadTop= 3

dt.LoadOrder = "[_Identify] desc"

dt.Load

''只能加载最近10条记录,无法筛选最近10条记录

'Dim dt As DataTable = Tables("窗口1_table1").DataTable

'dt.LoadFilter = "" '"出入库 = '入库'"

'dt.LoadTop= 3 '设置执行load(加载)方法时,要加载的行数

'dt.LoadOrder = "日期 desc" '设置执行load(加载)方法时,加载数据的排序方式

'dt.Load '重新加载

Case "近一月"

dst.Filter = "[日期] >= '" & today.AddMonths(-1) & "'"

Case "近三月"

dst.Filter = "[日期] >= '" & today.AddMonths(-3) & "'"

Case "近一年"

dst.Filter = "[日期] >= '" & today.AddYears(-1) & "'"

Case "近三年"

dst.Filter = "[日期] >= '" & today.AddYears(-3) & "'"

End Select

请问下上述代码有什么问题，为什么不法实现上述偌

wtfwsk05

小大 125楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/7 20:33:00 [只看该作者]

请问下上述代码有什么问题，为什么不法实现上述功能，应怎么修改代码

有点甜

小大 126楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/8 9:12:00 [只看该作者]

Dim dst As Table = Tables("窗口1_Table3")
Select Case e.sender.text
    Case "全部"
        dst.Filter = ""
    Case "近3笔"
        msgbox(123)
        Dim filter As String = ""
        dst.filter = ""
        dst.Sort = "日期 desc"
        For i As Integer = 0 To dst.Rows.count-1
            filter = dst.Rows(i)("_Identify") & ","
            If i >= 2 Then
                Exit For
            End If
        Next
        dst.filter = "_Identify in (" & filter.trim(",") & ")"
    Case "近一月"
        dst.Filter = "[日期] >= '" & today.AddMonths(-1) & "'"
    Case "近三月"
        dst.Filter = "[日期] >= '" & today.AddMonths(-3) & "'"
    Case "近一年"
        dst.Filter = "[日期] >= '" & today.AddYears(-1) & "'"
    Case "近三年"
        dst.Filter = "[日期] >= '" & today.AddYears(-3) & "'"
End Select

wtfwsk05

小大 127楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00

Post By：2018/10/8 11:41:00 [只看该作者]

msgbox(123)
        Dim filter As String = ""
        dst.filter = ""
        dst.Sort = "日期 desc"
        For i As Integer = 0 To dst.Rows.count-1
            filter = dst.Rows(i)("_Identify") & ","
            If i >= 2 Then
                Exit For
            End If
        Next
        dst.filter = "_Identify in (" & filter.trim(",") & ")"

请问下应怎样理解