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


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

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


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/24 16:29:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/24 17:51:00 [只看该作者]

那就是没有“表A”，确定表名称是对的

 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2020/2/24 19:59:00 [只看该作者]

你这个表A 是内部表吧?

 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师看下能帮我修改下吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有添加外部表：http://www.foxtable.com/webhelp/topics/1812.htm，把表A加进来

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


加好友 发短信
等级：三尾狐 帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00 		  发帖心情 Post By：2020/2/24 21:30:00 [只看该作者]

老师，我专门从数据库建了个表A,下面代码，出现错误提示“至少一个参数没有被指定值”，麻烦帮我看下谢谢！

Dim dt As DataTable = DataTables("表A")
If dt.SourceType = 1 Then 'Access数据源
    dt.LoadFilter = "日期 = #" & Date.Today & "#"
ElseIf dt.SourceType = 2 Then 'SQL Server数据源
    dt.LoadFilter = "日期 = '" & Date.Today & "'"
End If
dt.Load()


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.10.26.1
错误所在事件：加载[表A]失败!
详细错误信息：
至少一个参数没有被指定值。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/24 21:45:00 [只看该作者]

表A有日期这个列吗？

 回到顶部
总数 20 上一页 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 秒, 4 次数据查询