主题：日期问题

如设置日期字段，日期只要求输入年月，将字段设为字符型，延时码为####-##， 但如何控制输入不出错，如月份不能超过12.谢谢！

 不能控制。你在validateEdit那里写代码控制即可。

If e.Col.Name = "第一列" AndAlso e.Text <> Nothing Then
    Dim ary As String() = e.Text.Split("-")
    If ary.Length <> 2 Then
        e.cancel = True
    Else
        If val(ary(1)) > 12 Then
            e.Cancel = True
        End If
    End If
End If

datacolchanging 事件

谢谢！在数据表中搞定了。但不知道在窗口表单里面能否控制，我试下再请教。

在窗口做的表单中，如何控制啊？如一张表，做窗口，在表单中，做时间列，沿用表中字段的文本（####-##），控制月份不超12.

 去编写Validating事件

 

If System.Text.RegularExpressions.Regex.isMatch(e.Sender.Text,"[0-9]{4}-(0[0-9]{1})|(1[1-2]{1})") = False Then
    e.cancel=True
End If

非常谢谢，对我们初学者不厌其烦，谢谢！