以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求窗口1标签6代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8413)
--  作者：老有所乐
--  发布时间：2010/10/20 15:45:00
--  求窗口1标签6代码

见表A窗口1说明

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:文局.table
--  作者：czy
--  发布时间：2010/10/20 17:32:00
--  

两个日期控件ValueChanged事件代码


Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").Value
If d1 = Nothing Or d2 = Nothing Then
    e.Form.Controls("Label6").Text = ""
Else
    e.Form.Controls("Label6").Text = DateDiff("yyyy",d2,d1)
End If
--  作者：老有所乐
--  发布时间：2010/10/20 23:34:00
--  
谢谢C版主！