专家坐堂-关于输入框Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于输入框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102964)

--  作者：peibaomin
--  发布时间：2017/6/28 13:41:00
--  关于输入框

窗体有两个日期框怎样实现当地一个日期框输入完离开控件时，第二个日期框自动输入第一个日期款年数加一填入第二个日期框中。在什么事件写代码呢？

--  作者：有点色
--  发布时间：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
--  发布时间：2017/6/28 15:45:00
--

色老师你好!是在窗体的leave 事件写代码，还是在第一个日期框的leave 事件中写代码呢？我在第一个日期框的leave 事件中写代码执行时，当离开第一个日期框时第二个日期框自动填上日期了，当进入别的控件后第二个日期框自内容就清空了

--  作者：有点色
--  发布时间：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
--  发布时间：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
这段代码对吗？无法保存！弹出的错误对话框是“表达式不产生值”

--  作者：有点色
--  发布时间：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
--  发布时间：2017/6/28 21:23:00
--

色老师我是想实现只有单击添加按钮才执行“第一个日期框输入完离开控件时，第二个日期框自动输入第一个日期款年数加一填入第二个日期框中”。单击修干按钮不执行这段代码。

--  作者：有点色
--  发布时间：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
--  发布时间：2017/6/28 22:04:00
--
单击添加按钮如果第一次进入第一个日期框输入完离开控件时运行正常如果再次修干第一个日期框后第二个日期框无变化

--  作者：有点色
--  发布时间：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