Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于输入框


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

主题：关于输入框
帅哥哟，离线，有人找我吗？
peibaomin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		关于输入框  发帖心情 Post By：2017/6/28 13:41:00 [只看该作者]

窗体有两个日期框 怎样实现当地一个日期框输入完离开控件时，第二个日期框自动输入第一个日期款年数加一填入第二个日期框中。在什么事件写代码呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 15:28:00 [只看该作者]

leave 事件

 

Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If e.Sender.Value = Nothing Then
    dtp2.Value = Nothing
Else
    dtp2.Value = e.Sender.Value.AddYears(1)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/6/28 15:45:00 [只看该作者]

色老师你好!是在窗体的leave 事件写代码，还是在第一个日期框的leave 事件中写代码呢？我在第一个日期框的leave 事件中写代码执行时，当离开第一个日期框时第二个日期框自动填上日期了，当进入别的控件后第二个日期框自内容就清空了
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 16:50:00 [只看该作者]

 写在第一个控件的 leavel 事件，改一下代码

 

Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If e.Sender.Value = Nothing Then
    dtp2.Value = Nothing
Else
    dtp2.Value = e.Sender.Value.AddYears(1)
End If
dtp2.WriteValue
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/6/28 20:53:00 [只看该作者]

Dim tjsj As  WinForm.Button= e.Form.Controls("tianjiashuju")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("youxiaoqizhiDate")
If tjsj.PerformClick=True  Then
If e.Sender.Value = Nothing Then
    dtp2.Value = Nothing
Else
    dtp2.Value = e.Sender.Value.AddYears(1)
End If
dtp2.WriteValue
End If
这段代码对吗？无法保存！弹出的错误对话框是“表达式不产生值”

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 21:03:00 [只看该作者]

Dim tjsj As  WinForm.Button= e.Form.Controls("tianjiashuju")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("youxiaoqizhiDate")
If e.Sender.Value = Nothing Then
    dtp2.Value = Nothing
Else
    dtp2.Value = e.Sender.Value.AddYears(1)
End If
dtp2.WriteValue

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


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/6/28 21:23:00 [只看该作者]

色老师我是想实现只有单击添加按钮才执行“第一个日期框输入完离开控件时，第二个日期框自动输入第一个日期款年数加一填入第二个日期框中”。单击修干按钮不执行这段代码。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 21:27:00 [只看该作者]


Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("youxiaoqizhiDate")
If vars("单击了") =True  Then
    If e.Sender.Value = Nothing Then
        dtp2.Value = Nothing
    Else
        dtp2.Value = e.Sender.Value.AddYears(1)
    End If
    dtp2.WriteValue
End If

vars("单击了") = false

 

在你的单击按钮，写代码

 

vars("单击了") =True

[此贴子已经被作者于2017/6/28 21:27:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/6/28 22:04:00 [只看该作者]

单击添加按钮如果第一次进入第一个日期框输入完离开控件时运行正常如果再次修干第一个日期框后第二个日期框无变化

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 22:12:00 [只看该作者]

Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("youxiaoqizhiDate")
If vars("单击了") =True  Then
    If e.Sender.Value = Nothing Then
        dtp2.Value = Nothing
    Else
        dtp2.Value = e.Sender.Value.AddYears(1)
    End If
    dtp2.WriteValue
End If 

 

在你的单击按钮，写代码

 

vars("单击了") =True

 

保存表保存行那里，写代码

 

vars("单击了") = false
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询