Foxtable(狐表)用户栏目专家坐堂 → 如何写这个代码


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

主题:如何写这个代码

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/10 16:28:00 [显示全部帖子]

Dim dtp As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Tables("表A").Filter = "星期 = " & dtp.Value.DayOfWeek

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/10 16:51:00 [显示全部帖子]

需要重新生成目录树

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110597 积分:562881 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/10 17:11:00 [显示全部帖子]

trv.BuildTree("课程表","学校名称|班级|星期|节次" ,"在这里添加筛选条件", "班级,星期,节次")

如:trv.BuildTree("课程表","学校名称|班级|星期|节次" ,Tables("课程表").Filter, "班级,星期,节次")

"班级,星期,节次" --先按班级其次是星期,然后才是节次的顺序

 回到顶部