VB.NET中如何将MySQL日期字段值显示到DateTimePicker控件

核心问题在于：.NET的DateTime类型不支持0000/00/00这种无效日期格式，直接将字符串赋值给DateTimePicker.Value会因类型不匹配或无效日期导致失败。以下是具体解决步骤：

1. 调整MySQL连接字符串（可选但推荐） #

如果数据库中存在0000-00-00格式的日期，在连接字符串中添加Allow Zero Datetime=True，避免读取时抛出异常：

Dim connString As String = "server=你的服务器地址;database=目标数据库;uid=账号;pwd=密码;Allow Zero Datetime=True;"

2. 处理日期值并赋值给DateTimePicker #

先确保DateTimePicker控件的Format属性设为Custom，CustomFormat设为yyyy/MM/dd（与目标显示格式一致），再编写搜索按钮的逻辑：

' 从DataReader中获取日期字段值
Dim dateFieldValue As Object = dtr("date")

' 判断是否为无效日期（兼容数据库存储的0000-00-00和显示用的0000/00/00）
If IsDBNull(dateFieldValue) OrElse 
   dateFieldValue.ToString().Trim() = "0000/00/00" OrElse 
   dateFieldValue.ToString().Trim() = "0000-00-00" Then
    ' 强制显示0000/00/00：临时修改CustomFormat，Value赋值任意有效日期即可（显示被CustomFormat覆盖）
    DateTimePicker1.CustomFormat = "0000/00/00"
    DateTimePicker1.Value = DateTime.Now
Else
    ' 转换为有效DateTime并正常显示
    Dim validDate As DateTime
    If DateTime.TryParse(dateFieldValue.ToString(), validDate) Then
        DateTimePicker1.CustomFormat = "yyyy/MM/dd"
        DateTimePicker1.Value = validDate
    End If
End If

3. 可选：显示空日期替代无效值 #

若希望无效日期显示为空而非0000/00/00，可开启DateTimePicker的复选框功能：

• 设计器中将ShowCheckBox属性设为True
• 替换无效日期的处理逻辑：

If IsDBNull(dateFieldValue) OrElse 
   dateFieldValue.ToString().Trim() = "0000/00/00" OrElse 
   dateFieldValue.ToString().Trim() = "0000-00-00" Then
    DateTimePicker1.Checked = False
    DateTimePicker1.CustomFormat = " " ' 设置为空文本
Else
    DateTimePicker1.Checked = True
    DateTimePicker1.CustomFormat = "yyyy/MM/dd"
    DateTimePicker1.Value = DateTime.Parse(dateFieldValue.ToString())
End If

内容的提问来源于stack exchange，提问作者Cheikh Diallo