- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 加载树中想加入新增行命令出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72783)
-- 发布时间：2015/8/6 10:28: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
End If
-- 发布时间：2015/8/6 10:30:00
--
双击节点后，表有新增行，但马上一霎而过自己删掉了，为何？
-- 发布时间：2015/8/6 10:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3 (1).foxdb |
-- 发布时间：2015/8/6 10:33:00
--
1、窗口表设置了筛选，导致没显示出来；
2、窗口表不要用副本表，改用主表吧。
3、上传例子。
-- 发布时间：2015/8/6 10:43:00
--
已上传例子
-- 发布时间：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
-- 发布时间：2015/8/6 10:48:00
--
