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


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

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/19 15:40:00 [显示全部帖子]

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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/19 17:17:00 [显示全部帖子]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/21 9:23:00 [显示全部帖子]

1、不会看就贴出完整代码，别人帮你看
2、如果删除这个代码仍然有错误，说明不是这个代码的原因，可能是这个代码导致触发了其它的事件代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/21 11:47:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/21 15:23:00 [显示全部帖子]

代码！代码！！！！！！！！！！！！！！！

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/22 8:50:00 [显示全部帖子]

这个是enter还是SelectedIndexChanged的代码？

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/22 11:13:00 [显示全部帖子]

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

msgbox(qr.Value)

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

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

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

    Case "一年"

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

msgbox(zr.Value)

    Case "两年"

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

msgbox(zr.Value)

    Case "三年"

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

msgbox(zr.Value)

    Case "无固定期限"

        zr.Value = Nothing

msgbox(zr.Value)

End Select

msgbox(1)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 5 次数据查询