Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何输入固定月日的日期？


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

主题：如何输入固定月日的日期？
帅哥哟，离线，有人找我吗？
hyowl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：537 威望：0 精华：0 注册：2016/3/24 11:13:00 		如何输入固定月日的日期？  发帖心情 Post By：2016/4/16 16:56:00 [显示全部帖子]

老师好！
如图，有两列数据，第一列是入学年份，因为入学总是9月1日，所以要求输入年份后，后面的月日能自动为09-01，如输入2011，则自动出现2011-09-01，另外，毕业日期为三年后的6月1日，那么输入入学日期后自动得到毕业日期。如入学日期是2011-09-01，则毕业日期自动填入：2014-06-01？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160416162046.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hyowl
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：537 威望：0 精华：0 注册：2016/3/24 11:13:00 		  发帖心情 Post By：2016/4/17 20:38:00 [显示全部帖子]

谢谢老师指点！我稍作了修改，这样对吗？

If e.Col.Name="入学时间" And e.Text > "" Then ’这里加了这一句，否则所有单元格的输入都自动生成“09-01”了
    StatusBar.Message2 = e.Text
    If e.Text.length = 5 Then
        e.Text = e.Text & "09-01"
        Sendkeys.Send("{TAB}")
    End If
End If

If e.DataCol.Name = "入学时间" Then '如果是入学时间列的内容变动
    If e.DataRow.Isnull("入学时间") Then 
        e.DataRow("毕业时间")=Nothing
    Else    ‘这里也加了一句，否则把“入学时间”删除时会报错。
        e.DataRow("毕业时间") = new Date(e.NewValue.AddYears(3).year,6,1)
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询