以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8329)
--  作者：wqc360
--  发布时间：2010/10/7 17:20:00
--  窗口代码

我在窗口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

不知问题出在哪里，谢谢

 

 
--  作者：czy
--  发布时间：2010/10/7 18:39:00
--  

这样？

 

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
--  作者：mr725
--  发布时间：2010/10/8 8:41:00
--  
却显示0001-01-01  ：：：      说明日期的内容为空值
--  作者：wqc360
--  发布时间：2010/10/8 14:15:00
--  
谢谢C版，搞定