主题：如何输入日期只输入年月，输入具体日期？

DataColChanged事件

Dim d As Date
If Date.TryParse(e.NewValue, d) Then
    e.DataRow("出生年月") =d.Year & "年" & d.Month & "月"
End If

“出生年月”列的数据类型是“字符”

谢谢老师

我只看到，老师写的这句话“控制日期列的显示，即可，drawcell事件”，没看答案，就写了如下代码

Dim d As Date
If e.Col.Name = "出生年月" AndAlso e.Row.IsNull("出生年月") = False  Then
    d = e.Row("出生年月")
    e.Text = d.Year & "年" & d.Month & "月"
End If

老师的这个“Format(cdate”我还不认识哪，谢谢老师，我再学

哈哈，明白了，原来是格式化啊，然后将输入值转化成日期格式（Cdate），显示成“yyyy年M月”的形式。真的感谢老师！

DrawCell事件   日期列

Dim d As Date
If e.Col.Name = "出生年月" AndAlso e.Row.IsNull("出生年月") = False  Then
    d = e.Row("出生年月")
    e.Text = d.Year & "年" & d.Month & "月"
End If
If e.Col.Name = "参加工作时间" AndAlso e.Row.IsNull("参加工作时间") = False  Then
    d = e.Row("参加工作时间")
    e.Text = d.Year & "年" & d.Month & "月"
End If
If e.Col.Name = "入党时间" AndAlso e.Row.IsNull("入党时间") = False  Then
    d = e.Row("入党时间")
    e.Text = d.Year & "年" & d.Month & "月"
End If

Drawcell事件  日期列

Dim d As Date
Select Case e.Col.Name
    Case "出生年月"
        If e.Row.IsNull("出生年月") = False Then
            d = e.Row("出生年月")
            e.Text = d.Year & "年" & d.Month & "月"
        End If
    Case  "参加工作时间"
        If  e.Row.IsNull("参加工作时间") = False Then
            d = e.Row("参加工作时间")
            e.Text = d.Year & "年" & d.Month & "月"
        End If
    Case "入党时间"
        If  e.Row.IsNull("入党时间") = False  Then
            d = e.Row("入党时间")
            e.Text = d.Year & "年" & d.Month & "月"
        End If
End Select

这样写可能感觉会好些，简洁