窗口代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口代码

共有10041人关注过本帖树形打印复制链接主题：窗口代码

wqc360

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

窗口代码

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/10/8 8:41:00 [只看该作者]

却显示0001-01-01 ：：：说明日期的内容为空值

wqc360

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：790 积分：5677 威望：0 精华：0 注册：2009/4/17 18:42:00

Post By：2010/10/8 14:15:00 [只看该作者]

谢谢C版，搞定

下一主题 >> << 上一主题

主题：窗口代码