- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 返回值问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40231)
-- 发布时间：2013/9/12 16:05:00
-- 返回值问题
问题在工作日志窗口里
需要实现的功能：在查询修改部分，思路：点击修改日志---提示选择修改日志的日期-----选择日期之后页面返回到当天的工作日志窗口页面以便进行修改---确认修改完成（要求窗口里面的所有值都返回到当天的状态，如：姓名 员工编号 职位 所在项目 模块 工作时间 工作内容）
现在已经在控件DateTimePicker1的ValueChanged事件里面添加了以下代码，但是窗口没有反应
Dim dr As DataRow = DataTables("工作日志").Find("姓名 = \'" & User.Name & "\' and 日期 = #" & e.Sender.Value & "#")
If dr IsNot Nothing Then
Tables("工作日志").Position = Tables("工作日志").FindRow(dr)
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工作日志平台9月12.zip |
-- 发布时间：2013/9/12 16:09:00
--
没有数据源打不开呀
-- 发布时间：2013/9/12 16:31:00
--
最好针对问题，单独用内部表做个例子，不用整个项目上传的，这样一两分钟就可以给你答案的
-- 发布时间：2013/9/12 16:34:00
--
重新把数据源加在压缩包了 密码888 可能刚刚打开要改下路径
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:工作日志平台9月12.zip |
-- 发布时间：2013/9/12 16:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:工作日志平台9月12.zip |
-- 发布时间：2013/9/12 16:43:00
--
你用的是自定义用户管理，代码应该是：
Dim dr As DataRow = DataTables("工作日志").Find("姓名 = \'" & _UserName & "\' and 日期 = #" & e.Sender.Value & "#")
If dr IsNot Nothing Then
Tables("工作日志").Position = Tables("工作日志").FindRow(dr)
End If
-- 发布时间：2013/9/12 16:44:00
--
其实没有必要自己搞一套了，因为内置的用户管理，用户信息也可以存放在外部数据源中了：
http://www.foxtable.com/help/topics/2723.htm
-- 发布时间：2013/9/12 16:53:00
--
_UserName 这个我试过了 不行 另外这问题不是用户管理部分，是工作日志的窗口，代码应该没有写全，因为工作内容部分没有返回到原来的值啊
-- 发布时间：2013/9/12 16:55:00
--
改为_UserName 就有反应了，我测试过的，前提是你登录的用户在指定的日期中存在对应的行。
-- 发布时间：2013/9/12 16:56:00
--
哦 刚刚没有看清楚 ，自己做一套是因为那会儿还没有升级到“用户数据表”按钮，后来升级了就没有来得及修改 谢谢您提醒