Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码错误


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

主题：代码错误
帅哥哟，离线，有人找我吗？
jick0526
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		代码错误  发帖心情 Post By：2020/2/21 17:37:00 [显示全部帖子]

老师，麻烦帮我看下下面的代码哪里错了，我放在BeforeLoadlnnerTable属性里，我想要在加载外部表达时候如果用户名是经理或员工，那么执行下面代码，否则不执行

If e.User.Name <> "经理" AndAlso e.User.Name <> "员工" 
DataTables("表A").LoadFilter = "日期 >= '" &  Date.Today.AddYears(-1) & "'"
DataTables("表A").Load
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/23 16:54:00 [显示全部帖子]

老师，上面的代码放在BeforeLoadOuterTable属性里面后出现下面错误提示

错误提示Filter不是BeforeLoadOuterTable的成员

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


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 13:59:00 [显示全部帖子]

老师，我试了下面的代码还是会加载所有的行，而不是一年内的

If e.User.Name <> "经理" AndAlso e.User.Name <> "员工"
    If e.DataTableName = "表A"
        e.SelectString = "Select * From 表A where [日期] >= #" &Date.Today.AddYears(-1)  & "#"
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 15:23:00 [显示全部帖子]

老师，不能加载，提示无法完成延迟准备，无法预定义语句

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


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 15:38:00 [显示全部帖子]

提示“#”附近有语法错误，我不知道为什么不能上传图片

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


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 16:07:00 [显示全部帖子]

是外部数据源SqlServer

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


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 17:39:00 [显示全部帖子]

老师，提示说不存在"表A"的Data Table,麻烦帮我看下，谢谢！

Dim dt As DataTable = DataTables("表A")
If e.User.Name <> "经理" AndAlso e.User.Name <> "员工"
If dt.SourceType = 1 Then 'Access数据源
    dt.LoadFilter = "输入时间 >= #" &Date.Today.AddYears(-1)  & "#"
ElseIf dt.SourceType = 2 Then 'SQL Server数据源
    dt.LoadFilter = "输入时间 >= '" &Date.Today.AddYears(-1)  & "'"
End If
End If
dt.Load()
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 18:41:00 [显示全部帖子]

老师，有表A这个表，表名肯定不会错，试了下面的代码还是不行，说不存在表A的表，是还要写入数据源的名称吗

If dt.SourceType = 2 Then 'SQLServer数据源
    dt.LoadFilter = "输入时间 = '" & Date.Today & "'"
End If
dt.Load()
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 20:17:00 [显示全部帖子]

是外部表，刚用下面的代码试了下，出现这个错误提示“未将对象引用设置到对象的实例”
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dt As DataTable = DataTables("表A")
cmd.C
If dt.SourceType = 2 Then 'SQL Server数据源
If e.User.Name <> "经理" AndAlso e.User.Name <> "员工"
    If e.DataTableName = "表A"
       dt.LoadFilter = "日期 >= '" &Date.Today.AddYears(-1)  & "'"
    End If
End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 20:18:00 [显示全部帖子]

老师看下能帮我修改下吗？
 回到顶部
总数 12 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.04688 秒, 5 次数据查询