- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]foxtable已停止工作 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94926)
-- 发布时间：2017/1/5 15:05:00
-- [求助]foxtable已停止工作
各位前辈好！开发时，用的access03版的数据库挺好的。
现在把access变成07版了（原03版另存的），链接也提示成功，但就是最后准备进入的时候foxtable报错，救急，谢谢！
-- 发布时间：2017/1/5 15:08:00
--
不可能把低版本的另存为高版本的access的。你是怎么做到的？
-- 发布时间：2017/1/5 15:47:00
--
见笑了~
另再请教下数据加载问题。
因为人员调动频繁，有很多烂尾巴的事还需后续处理，或身兼数职（在不同项目做一样的角色工作），
所以我在用户账户密码后加了两列，D列为项目清单（项目A|项目B|项目C），E列让用户自行在D列清单中选一个，作为加载条件。
这样每次打开项目时自动以USER对应的E列值为部门，如E列为空，则加载D列清单所有部门记录，求指教，谢谢！
-- 发布时间：2017/1/5 15:50:00
--
还有个问题，以前的试用版里有些有用的东西（代码以外的），现在反复插拔狗不好。用了虚拟机打开试用版也没解决，能顺便指点下吗？
-- 发布时间：2017/1/5 15:51:00
--
Dim dr As Datarow = 你查到的user的那一行
If dr.IsNull("E") Then
DataTables("表A").LoadFilter = "项目 in (\'" & dr("D").Replace("|", "\',\'") & "\')"
DataTables("表A").Load
Else
DataTables("表A").LoadFilter = "项目 = \'" & dr("E") & "\'"
DataTables("表A").Load
End If
-- 发布时间：2017/1/5 17:26:00
--
此主题相关图片如下：13.png
请教，一直报“未将对象引用设置。。。”错误。
不会是我加的那一点点东西又语法错误吗？
[此贴子已经被作者于2017/1/5 17:27:26编辑过]
-- 发布时间：2017/1/5 17:27:00
--
打开项目的时候，登陆的时候，你肯定要查到对应的那一个用户的那一行数据啊。
Dim dr As Datarow = 你查到的user的那一行
-- 发布时间：2017/1/5 17:30:00
--
Dim dr As DataRow=DataTables("用户").Find("name = " & "\'" & username & "\'")
这个表达有问题吗?
-- 发布时间：2017/1/5 17:39:00
--
msgbox(username) \'看弹出的名字是否正确
Dim dr As DataRow=DataTables("用户").Find("name = \'" & username & "\'")
If dr Is Nothing Then
msgbox("没有找到对应的行")
return
End If
-- 发布时间：2017/1/6 0:07:00
--
谢谢老师，按照上面的方法，我已基本掌握。
但对于这个 DataTables("表名").LoadFilter ="表达式1 And 单位名称（列名）= \'某某\'"
可以这样表达吗？我这老是出错，找不到方法啊，求教！