加载树中想加入新增行命令出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载树中想加入新增行命令出错

共有2580人关注过本帖树形打印复制链接主题：加载树中想加入新增行命令出错

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/6 10:33:00 [显示全部帖子]

1、窗口表设置了筛选，导致没显示出来；

2、窗口表不要用副本表，改用主表吧。

3、上传例子。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/6 10:47:00 [显示全部帖子]

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
ElseIf e.node.Text = "Add" Then
    Tables("任务组").AddNew
Else
    Dim ary() As String = e.Node.FullName.Split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="[归档] = " & iif(ary(0)="进行中", False, True) & ""
        Case 1
            Filter ="[归档] = " & iif(ary(0)="进行中", False, True) & " And Year(日期) = " & ary(1)
    End Select
    With DataTables("任务组")
        .LoadFilter = Filter '设置加载条件
        .LoadPage = 0 '加载第一页
        .LoadTop = 5 '每页5行
        .Load()
    End With
End If

下一主题 >> << 上一主题

主题：加载树中想加入新增行命令出错