Foxtable(狐表)用户栏目专家坐堂 → 动态列表排序问题


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

主题:动态列表排序问题

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


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

参考4楼用法

Dim dr As DataRow = DataTables("用户管理").Find("账号 = '" & zh.text & "' and 部门='" & bm.text & "' and .........")

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


加好友 发短信
等级:三尾狐 帖子:635 积分:4657 威望:0 精华:0 注册:2016/4/15 22:24:00
已解决  发帖心情 Post By:2022/4/14 16:24:00 [只看该作者]

谢谢老师

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


加好友 发短信
等级:三尾狐 帖子:635 积分:4657 威望:0 精华:0 注册:2016/4/15 22:24:00
无法显示删除日志信息  发帖心情 Post By:2022/4/15 9:55:00 [只看该作者]

登录日志代码正确,显示正常:

在项目属性AfterOpenProject事件代码:

Output.Logs("登录日志").Add(_UserName & ":" & Date.Now )

Output.Logs("登录日志").Save("Images\操作日志\log.txt",True)

Output.Logs("登录日志").Clear

 

删除日志代码是否有问题,无法显示删除日志信息

在项目属性BeforeOpenProject事件代码:

Output.Logs("删除日志").Save("Images\操作日志\Delete.txt",True)

数据录入表的表事件DataRowDeleting代码:

Output.Logs("删除日志").Add(_UserName & "" & Date.Now & "删除了" & e.DataRow("数据单号"))



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


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/15 9:57:00 [只看该作者]

去掉BeforeOpenProject事件

DataRowDeleting代码:

Output.Logs("删除日志").Add(_UserName & "" & Date.Now & "删除了" & e.DataRow("数据单号"))
Output.Logs("删除日志").Save("Images\操作日志\Delete.txt",True)
Output.Logs("删除日志").Clear

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


加好友 发短信
等级:三尾狐 帖子:635 积分:4657 威望:0 精华:0 注册:2016/4/15 22:24:00
谢谢  发帖心情 Post By:2022/4/15 10:09:00 [只看该作者]

老师,禁止用户删除表,怎么设置,刚才我一不小心就把一个表删除了
[此贴子已经被作者于2022/4/15 10:12:41编辑过]

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


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/15 10:18:00 [只看该作者]

方法1、导入系统菜单,删除【删除表】这个菜单
2、设计自己的菜单替代系统菜单

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


加好友 发短信
等级:三尾狐 帖子:635 积分:4657 威望:0 精华:0 注册:2016/4/15 22:24:00
数据恢复  发帖心情 Post By:2022/4/15 10:27:00 [只看该作者]

刚才删除了表,发现外部数据库内容还有,怎么恢复,或提取数据库内容

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


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/15 10:41:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:635 积分:4657 威望:0 精华:0 注册:2016/4/15 22:24:00
已解决  发帖心情 Post By:2022/4/15 11:33:00 [只看该作者]

谢谢

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


加好友 发短信
等级:三尾狐 帖子:635 积分:4657 威望:0 精华:0 注册:2016/4/15 22:24:00
隐藏窗口按钮代码  发帖心情 Post By:2022/4/15 16:06:00 [只看该作者]

老师,我想隐藏主窗口2个按钮,这个代码写在哪里?让用户登录后自动隐藏看不见,代码好像也有点问题


Select Case _UserGroup

    Case "用户1","用户2"

        Forms("主窗口").controls("Button4").Visible = True 

    Case "用户3", "用户4"

        Forms("主窗口").controls("Button3").Visible = True    

End Select


 回到顶部
总数 27 上一页 1 2 3 下一页