Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求SelectedIndexChanged代码


  共有7432人关注过本帖树形打印复制链接

主题：[求助]求SelectedIndexChanged代码
帅哥哟，离线，有人找我吗？
老鼠
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		[求助]求SelectedIndexChanged代码  发帖心情 Post By：2022/10/19 15:37:00 [显示全部帖子]

如题：求”合同期限”的代码
要求：1、"合同终止日"的值根据"合同期限"的值改变后生成；
2、"合同期限"值为“无固定期限”时"合同终止日"为空。
如：
Dim qr As WinForm.DateTimePicker = e.Form.Controls("合同起始日")
Dim zr As WinForm.DateTimePicker = e.Form.Controls("合同终止日")
Select Case e.Form.Controls("合同期限")
    Case "一年"
        zr.Value = qr.Value.AddDays(365)
    Case "两年"
        zr.Value = qr.Value.AddDays(730)
    Case "三年"
        zr.Value = qr.Value.AddDays(1095)
End Select
当然以上代码有误！大至意思就是这个样子。
[此贴子已经被作者于2022/10/19 15:37:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/19 17:13:00 [显示全部帖子]

按这样写报错哦！
.NET Framework 版本：4.0.30319.34209
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,编辑窗,合同期限,Enter
详细错误信息：
Operator '=' is not defined for type 'DateTimePicker' and type 'Boolean'.
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/21 9:11:00 [显示全部帖子]

首先感谢老师的指点，你提的这个查看报错的信息我看得懂也知道在哪里；但我不知道如何修改代码。
1、当提示“合同期限”的Enter代码错误时，我直接删除代码后依然报错；
2、报错提示好像是“组合框”不能转换成字符串。
还请老师指点！！！
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/21 11:44:00 [显示全部帖子]

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

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

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

    Case "一年"

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

    Case "两年"

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

    Case "三年"

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

    Case "无固定期限"

        zr.Value = Nothing

End Select


以上是完整代码，请老师指点！纠正！

[此贴子已经被作者于2022/10/21 11:44:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/21 15:16:00 [显示全部帖子]

还是一样的出现报错窗口
图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20221021151445.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/21 19:45:00 [显示全部帖子]

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

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

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

    Case "一年"

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

    Case "两年"

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

    Case "三年"

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

    Case "无固定期限"

        zr.Value = Nothing

End Select


以上是完整代码，还请老师指点。

[此贴子已经被作者于2022/10/21 19:48:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/22 10:44:00 [显示全部帖子]

是SelectedIndexChanged的代码，enter代码已被我删除！

 回到顶部
帅哥哟，离线，有人找我吗？
老鼠
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00 		  发帖心情 Post By：2022/10/22 11:17:00 [显示全部帖子]

感谢！老师的指点，我的这个问题已经解决！谢谢！
以下是我的代码。
SelectedIndexChanged代码：
Dim qr As WinForm.DateTimePicker = e.Form.Controls("合同起始日")
Dim zr As WinForm.DateTimePicker = e.Form.Controls("合同终止日")
Select Case e.Form.Controls("合同期限").text
    Case "一年"
        zr.Value = qr.Value.Addyears(1)
    Case "两年"
        zr.Value = qr.Value.Addyears(2)
    Case "三年"
        zr.Value = qr.Value.Addyears(3)
    Case "无固定期限"
        zr.Value = Nothing
End Select


Enter代码：
Dim rq As WinForm.DateTimePicker = e.Form.Controls("合同起始日")
If rq.value Is Nothing Then
    MessageBox.Show("请输入合同起始日期!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
Else
    e.Sender.ComboList = DataTables("项目字典").GetComboListString("名称","类别 = '合同期限'","_identify")
End If
[此贴子已经被作者于2022/10/22 11:21:55编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询