- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117308)
-- 发布时间：2018/4/10 15:11:00
-- [求助]我排版了个主窗口，请问如何实现选择日历控件"Calendar1"日期时，所有内容切换到选定日期进行编辑。
此主题相关图片如下：qq截图20180410145418.png
控件名称：交接日期DateTimePicker1 和 DateTimePicker2
记录人 TextBox1 和 TextBox2
记录窗口(交接班) RecordGrid1 和 RecordGrid2
月历 Calendar1
请问如何 在选择\'月历\'日期时，切换到相应的日期中进行内容编辑？
此主题相关图片如下：qq截图20180410144120.png
此主题相关图片如下：qq截图20180410144120.png-- 发布时间：2018/4/10 15:16:00
--
DateSelected 事件
Dim i As Integer = Tables("表A").FindRow("日期 = #" & e.sender.Value & "#")
msgbox(i)
If i >= 0 Then
Tables("表A").position = i
End If
-- 发布时间：2018/4/10 15:30:00
--
选日期后，也没变成空白的用于编辑啊，只是报了个错。
此主题相关图片如下：qq截图20180410152730.png
-- 发布时间：2018/4/10 15:44:00
--
改成
Dim i As Integer = Tables("表A").FindRow("日期 = #" & e.sender.Value & "#")
msgbox(i)
If i >= 0 Then
Tables("表A").position = i
Else
Dim nr As Row = Tables("表A").AddNew
nr("日期") = e.sender.Value
End If
-- 发布时间：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编辑过]
-- 发布时间：2018/4/10 16:10:00
--
1、上传具体实例测试；
2、直接说你想做什么功能。说明操作步骤，和想得到的效果。