标题：窗口代码

我在窗口AfterLoad中加入代码：

e.Form.Controls("日期").Value = Today

可以正常显示

当时我改成如下：

Dim dd As WinForm.ComboBox = e.Form.Controls("工序班组")
Dim d11 As Date = DataTables("日报表").Compute("Max(日期)")
If dd IsNot Nothing Then
    Dim d1 As Date = DataTables("日报表").Compute("Max(日期)", "[工序_班组] = '" & dd.Text & "'  ")
    e.Form.Controls("日期").Value = d1
Else
    e.Form.Controls("日期").Value = d11
End If

却显示0001-01-01

不知问题出在哪里，谢谢

这样？

Dim dd As String = e.Form.Controls("工序班组").Value
If dd IsNot Nothing Then
    e.Form.Controls("日期").Value = DataTables("日报表").Compute("Max(日期)", "[工序_班组] = '" & dd & "'")
Else
    e.Form.Controls("日期").Value = DataTables("日报表").Compute("Max(日期)")
End If