关于日期字段的更新后焦点问题！

eio

虽然利用默认值可以方便的将同年月日单据输入，但是对于不同日的，要整个日期输入又不太方便，可以在添加单据以后焦点移动到日期字段的YYYYMMDD的DD日期位置吗?[em14][em14]

wangxin1978

？？？你的意思不明白？？？

eio

但是操作有点繁琐，按VX切换，可是VX的位置在小键盘的另一端，单手操作显然复杂，想着可以掩码是2002-12-31型，但还是可以接收12-31，或者1231又或者11（2002-01-01）吗？[em01][em01][em01][em01][em01]

wangxin1978

在日期字段控件的进入事件中加入下面代码
    Dim v1, v2, v3, v4, v5, v6, v7
    v1 = Left(CStr(Now()), 1)
    v2 = Mid(CStr(Now()), 2, 1)
    v3 = Mid(CStr(Now()), 3, 1)
    v4 = Mid(CStr(Now()), 4, 1)
    v5 = Mid(CStr(Now()), 5, 1)
    v6 = Mid(CStr(Now()), 6, 1)
    v7 = Mid(CStr(Now()), 7, 1)
    SendKeys v1
    SendKeys v2
    SendKeys v3
    SendKeys v4
    SendKeys v5
    SendKeys v6
    SendKeys v7