Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限


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

主题：权限
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 9:17:00 [显示全部帖子]



转成加载树的什么转
For Each dr  As DataRow In DataTables("表权限").Select(" 表名 = '了'" )
Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 9:49:00 [显示全部帖子]

f dr1("某某列") = “本月”
Dim y As Integer = date.today.year '指定年份
Dim m As Integer = date.today.month '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" 
jb.filter= Filter
else if dr1("某某列") = “当天”
jb.filter= "日期 =  #" & date.today & "# "
end if
加至
For Each dr  As DataRow In DataTables("表权限").Select(" 表名 = '了'" )
Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 10:16:00 [显示全部帖子]

Tables("外部入库").OpenLoadTree("入库部门|单据类型|入库日期 YM|商品名称",200,100,True,"入库日期 > '" & Date.Today.AddDays(-450) & "'")

只可以这样吗
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 10:33:00 [显示全部帖子]

Dim dr  As DataRow = DataTables("表权限").find(" 表名 = '了'" )
If dr IsNot Nothing Then
Tables("了").OpenLoadTree(dr("权限加载列名"),dr("权限加载尺寸"),"日期 > '" & Date.Today.AddDays(dr("权限加载时间")) & "'")
End If


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,代码,Button2,Click
详细错误信息：
从字符串“日期 > '2020-11-10'”到类型“Integer”的转换无效。
输入字符串的格式不正确。
[此贴子已经被作者于2020/11/11 10:34:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 14:31:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
列日期可以这样体现不

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


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 15:00:00 [显示全部帖子]

有其它办法没
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2020/11/11 15:13:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看


像这样
 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询