我在窗口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
不知问题出在哪里,谢谢