[求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。

共有2270人关注过本帖树形打印复制链接主题：[求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。

vxzx

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

等级：幼狐帖子：64 积分：632 威望：0 精华：0 注册：2018/3/25 16:34:00

[求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。 发帖心情

Post By：2018/4/10 15:11:00 [显示全部帖子]

此主题相关图片如下：qq截图20180410145418.png

控件名称：交接日期DateTimePicker1 和 DateTimePicker2

记录人 TextBox1 和 TextBox2

记录窗口(交接班) RecordGrid1 和 RecordGrid2

月历 Calendar1

请问如何在选择'月历'日期时，切换到相应的日期中进行内容编辑？
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20180410144120.png

vxzx

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

等级：幼狐帖子：64 积分：632 威望：0 精华：0 注册：2018/3/25 16:34:00

Post By：2018/4/10 15:30:00 [显示全部帖子]

选日期后，也没变成空白的用于编辑啊，只是报了个错。
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20180410152730.png

vxzx

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

等级：幼狐帖子：64 积分：632 威望：0 精华：0 注册：2018/3/25 16:34:00

Post By：2018/4/10 16:07:00 [显示全部帖子]

我改成

Dim i As Integer = Tables("交接班").FindRow("日期 = #" & e.sender.Value & "#")

msgbox(i)

If i >= 0 Then

Tables("交接班").position = i

Else

Dim nr As Row = Tables("交接班").AddNew

nr("日期") = e.sender.Value

End If

还是会报错，切换日期后编辑的内容也没有变化。还是会报错

[此贴子已经被作者于2018/4/10 16:11:33编辑过]

主题：[求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。