[求助]如何完善TextChanged事件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何完善TextChanged事件？

共有4321人关注过本帖树形打印复制链接主题：[求助]如何完善TextChanged事件？

老鼠

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

加好友

发短信

等级：小狐帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00

[求助]如何完善TextChanged事件？ 发帖心情

Post By：2022/12/4 10:20:00 [显示全部帖子]

事件报错，提示窗口如下：

此主题相关图片如下：微信图片_20221204101810.png

请老师帮助！

老鼠

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

加好友

发短信

等级：小狐帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00

Post By：2022/12/4 14:29:00 [显示全部帖子]

首先感谢您的帮助，但我这个窗口控件本身就是日期类型不是字符型哦！

其次就是这下面的代码有不完善的地方，只要删除这段就没有这个错误提示了。

Dim qr As WinForm.DateTimePicker = e.Form.Controls("合同起始日")

Dim zr As WinForm.DateTimePicker = e.Form.Controls("合同终止日")

Select Case e.Form.Controls("合同期限").text

Case "1"

zr.Value = qr.Value.AddYears(1)

Case "2"

zr.Value = qr.Value.AddYears(2)

Case "3"

zr.Value = qr.Value.AddYears(3)

Case "4"

zr.Value = qr.Value.AddYears(4)

Case "5"

zr.Value = qr.Value.AddYears(5)

End Select

[此贴子已经被作者于2022/12/4 14:31:16编辑过]

老鼠

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

加好友

发短信

等级：小狐帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00

Post By：2022/12/4 14:59:00 [显示全部帖子]

刚才自己又测试了一下，以下代码不报错：

Dim qr As WinForm.DateTimePicker = e.Form.Controls("合同起始日")

Dim zr As WinForm.DateTimePicker = e.Form.Controls("合同终止日")

Select Case e.Form.Controls("合同期限").Text

Case "1"

zr.Value = "2022-12-04"

Case "2"

zr.Value = "2022-12-04"

Case "3"

zr.Value = "2022-12-04"

Case "4"

zr.Value = "2022-12-04"

Case "5"

zr.Value = "2022-12-04"

End Select

也就是说就这后面这段有问题。还请老师们指导下，如何修改为佳！！！

下一主题 >> << 上一主题

主题：[求助]如何完善TextChanged事件？