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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期比较

共有3659人关注过本帖树形打印复制链接主题：日期比较

baixiaobai

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

加好友

发短信

等级：小狐帖子：317 积分：2555 威望：0 精华：0 注册：2013/3/8 0:32:00

Post By：2013/9/12 20:01:00 [只看该作者]

您那里可以?怎么会呀,我就在例子上使用了代码,也是不可以呢? 图片点击可在新窗口打开查看

程兴刚

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

加好友

发短信

等级：超级版主帖子：7235 积分：40574 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/9/12 20:08:00 [只看该作者]

您是说如果日期列有空值，也将空值写到表A吗？那样的话要改代码，其实排除空值是正确的，非得向表A写入空值的要求倒是无法理解。

[此贴子已经被作者于2013-9-12 20:08:27编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/9/12 20:21:00 [只看该作者]

这个应该是min函数的问题了，对空值比较有些问题。如下处理一下。

For Each dr As DataRow In DataTables("表A").Select("姓名 is not null")
    Dim rlist As new List(of Date)
    Dim temp As Date
    temp = DataTables("表B").Compute("min(用餐日期)","姓名='" & dr("姓名") & "'")
    If temp.year > 1 Then
        rlist.Add(temp)
    End If
    temp = DataTables("表C").Compute("min(报名日期)","姓名='" & dr("姓名") & "'")
    If temp.year > 1 Then
        rlist.Add(temp)
    End If

    If rlist.Count > 0 Then
        rlist.sort
        dr("最早日期")=rlist(0)
    Else
        dr("最早日期")=Nothing
    End If
Next

baixiaobai

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

加好友

发短信

等级：小狐帖子：317 积分：2555 威望：0 精华：0 注册：2013/3/8 0:32:00

Post By：2013/9/12 20:27:00 [只看该作者]

对喽,这回显示了,谢谢各位版主大银~~终于好用了~

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

总数 14 上一页 1 2

主题：日期比较