返回值问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 返回值问题

共有4349人关注过本帖树形打印复制链接主题：返回值问题

美狐轩

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：45 积分：594 威望：0 精华：0 注册：2012/9/7 14:37:00

返回值问题

Post By：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

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/9/12 16:09:00 [只看该作者]

没有数据源打不开呀

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/9/12 16:31:00 [只看该作者]

最好针对问题，单独用内部表做个例子，不用整个项目上传的，这样一两分钟就可以给你答案的

美狐轩

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：45 积分：594 威望：0 精华：0 注册：2012/9/7 14:37:00

Post By：2013/9/12 16:34:00 [只看该作者]

重新把数据源加在压缩包了密码888 可能刚刚打开要改下路径

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工作日志平台9月12.zip

美狐轩

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：45 积分：594 威望：0 精华：0 注册：2012/9/7 14:37:00

Post By：2013/9/12 16:35:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工作日志平台9月12.zip

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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