Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用列名作为筛选树节点名，怎样做截图那样


  共有8530人关注过本帖树形打印复制链接

主题：用列名作为筛选树节点名，怎样做截图那样
帅哥哟，离线，有人找我吗？
有点蓝
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/9 9:14:00 [只看该作者]

filter = "入职日期 <= #" & Date.Today.AddYears(-1 * val(ar(0))) & "#" &  "And 入职日期 >= #" & Date.Today.AddYears(-1 * val(ar(1))-1) & "#"

 回到顶部
帅哥哟，离线，有人找我吗？
system1977
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00 		  发帖心情 Post By：2019/12/13 20:13:00 [只看该作者]

根据"合同期止"列计算出"到期天数"列还有多少天,如果一行一行填入数据能计算出来,但一按"重置"或打开表重新计算,数据就的数据全一样.
代码如下:
Dim t As TimeSpan
Select Case e.DataCol.name
    Case "到期天数","合同期止"
        If e.DataRow.IsNull("合同期止") = False
            t = CDate(CurrentTable.Current("合同期止")) - Date.Today
            e.DataRow("到期天数") = t.days
        End If
 End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/13 21:11:00 [只看该作者]

在这个表事件里不要使用CurrentTable和Current这种用法

Select Case e.DataCol.name
    Case "合同期止"
        If e.DataRow.IsNull("合同期止") = False
    Dim t As TimeSpan = CDate(e.DataRow("合同期止")) - Date.Today
            e.DataRow("到期天数") = t.days
        End If
 End Select
 回到顶部
帅哥哟，离线，有人找我吗？
system1977
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00 		  发帖心情 Post By：2019/12/13 21:56:00 [只看该作者]

以下是引用有点蓝在2019/12/13 21:11:00的发言：
在这个表事件里不要使用CurrentTable和Current这种用法

Select Case e.DataCol.name
    Case "合同期止"
        If e.DataRow.IsNull("合同期止") = False
    Dim t As TimeSpan = CDate(e.DataRow("合同期止")) - Date.Today
            e.DataRow("到期天数") = t.days
        End If
 End Select

可以执行计算,有几个疑问:
1   Case 不加上"到期天数",点击"重置"或在项目事件的AfterOpenProject设置打开重新计算不执行.
2 . 上述设置了之后,""到期天数"列就不能清空,系统是不是一直都在计算这列的数据?
3. RaiseDataColChanged() 有个筛选选项,帮助中有没有教程?
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/13 22:39:00 [只看该作者]

1、根据"合同期止"重置列，而不是"到期天数"
2、肯定有其它代码影响了
3、帮助搜“RaiseDataColChanged”
 回到顶部
帅哥哟，离线，有人找我吗？
system1977
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00 		  发帖心情 Post By：2019/12/18 20:28:00 [只看该作者]

新问题:
1 怎样为不同表设置不同筛选树,在切换表的时候自动打开对应的筛选树?
2 在鼠标移到某一数据行显示设置好的图片怎样做?就像用ShowToolTip显示文字一样
[此贴子已经被作者于2019/12/18 21:16:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/19 9:31:00 [只看该作者]

1、maintablechanged事件调用OpenLoadTree打开对应的筛选树
2、例如
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.zip
 回到顶部
帅哥哟，离线，有人找我吗？
system1977
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00 		  发帖心情 Post By：2019/12/19 21:53:00 [只看该作者]

今天开始,想编辑窗口就成这样了:
图片点击可在新窗口打开查看此主题相关图片如下：25.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：5.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
system1977
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：100 积分：992 威望：0 精华：0 注册：2019/4/2 22:28:00 		  发帖心情 Post By：2019/12/21 17:44:00 [只看该作者]

以下是引用有点蓝在2019/12/19 9:31:00的发言：
1、maintablechanged事件调用OpenLoadTree打开对应的筛选树
2、例如
 下载信息  [文件大小：13.3 KB  下载次数：2]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.zip
管理项目例子已经看过,但似乎只能显示一张图片,怎样随着鼠标移动到不同的行显示不同的照片?
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/22 20:11:00 [只看该作者]

设置图片

    Dim pic As WinForm.PictureBox = Forms("窗口2").Controls("PictureBox1")
    pic.Visible = True
    pic.Top = cellrect.y - 150
    pic.Left = cellrect.x
    pic.Image =getimage(e.Row("图片"))
 回到顶部
总数 87 上一页 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询