Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载问题-1


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

主题：加载问题-1
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1357 积分：8996 威望：0 精华：0 注册：2020/11/4 22:15:00 		加载问题-1  发帖心情 Post By：2023/10/20 9:30:00 [只看该作者]

如何实现以当前登录的用户加载，如果当前登录的用户是UsersID按UsersID加载数据，如果当前登录的用户不是UsersID，按从sjID中当前登录的用户的UsersID加载？

图片点击可在新窗口打开查看此主题相关图片如下：加载问题.jpg
图片点击可在新窗口打开查看


Dim dr2 As DataRow
Dim s As String 
s = dr2("sjID")
Dim Filter As String
'Filter = " 录入者 ='" & _UserName & "'    or  _UserName In ('" & s.replace("，", "','") & "') "
msgbox(Filter)
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()

执行后报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,窗口1,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 9:39:00 [只看该作者]

1、dr2定义后没有赋值，是一个空行，无法使用
2、userid里存储的是8这种数字，录入者里存储的是张三，2者有何关系？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1357 积分：8996 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 9:52:00 [只看该作者]

userid是张三的编号

Users表：
userid   姓名    SJID
8          张三    4，5
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/10/20 10:04:00 [只看该作者]

Dim dr2 As DataRow = DataTables("Users").Find(...............

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


加好友 发短信
等级：六尾狐 帖子：1357 积分：8996 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/10/20 15:03:00 [只看该作者]

Dim Filter As String
Dim dr1 As DataRow = Tables("订单").Current.DataRow
Filter = " [UserID] = '" & dr1("UserID") & "' or  [sjID] = '" & dr1("sjID") & "' "
msgbox(Filter)
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()

上面加载sjID的数据

需求是：当前登记用户（录入者，UserID（是录入者的UserID）是录入者的UserID ，按UserID加载，如果当前登记用户不是录入者的UserID ，按sjID加载？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim Filter As String
Dim dr1 As DataRow = DataTables("Users").Find("姓名='" & _UserName & "'")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询