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

老师，下面代码把"基本信息_出生日期”的空值计算成当天的时间了。

Dim rdo1 As WinForm.RadioButton

rdo1 = Forms("生日提醒").Controls("今天")

rdo1.Checked = True

Dim nms1 As String

For Each dr1 As DataRow In DataTables("生日提醒_Table1").DataRows

Dim dt1 As Date = dr1("基本信息_出生日期")

If dt1.Month = Date.Today.Month AndAlso dt1.Day = Date.Today.Day Then

nms1 = nms1 & ",'" & dr1("姓名") & "'"

End If

If nms1 > "" Then

nms1 = nms1.Trim(",")

Tables("生日提醒_Table1").filter = "[姓名] In (" & nms1 &")"

Else

Tables("生日提醒_Table1").filter = "[编号] Is Null"

End If

e.Form.Controls("TEXTBOX1").Text=Tables("生日提醒_Table1").count

……

For Each dr1 As DataRow In DataTables("生日提醒_Table1").DataRows

If dr1.IsNull("基本信息_出生日期") = False

Dim dt1 As Date = dr1("基本信息_出生日期")

If dt1.Month = Date.Today.Month AndAlso dt1.Day = Date.Today.Day Then

nms1 = nms1 & ",'" & dr1("姓名") & "'"

End If

……

老师，没有用，窗口表类型是 SQLTable

没看懂你具体什么问题。截图或者上传实例说明

图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png

上面两行"基本信息_出生日期"是空的

Dim rdo1 As WinForm.RadioButton '今天转正员工提醒
rdo1 = Forms("生日提醒").Controls("今天")
rdo1.Checked = True
Dim nms1 As String
'For Each dr1 As DataRow In DataTables("生日提醒_Table1").DataRows
' Dim dt1 As Date = dr1("基本信息_出生日期")
' If dt1.Month = Date.Today.Month AndAlso dt1.Day = Date.Today.Day Then
'nms1 = nms1 & ",'" & dr1("姓名") & "'"
' End If
'Next
For Each dr1 As DataRow In DataTables("生日提醒_Table1").DataRows
    If dr1.IsNull("基本信息_出生日期") = False          '判断通讯录表当前行的"基本信息_出生日期"列是否有内容
        Dim dt1 As Date = dr1("基本信息_出生日期")
        If dt1.Month = Date.Today.Month AndAlso dt1.Day = Date.Today.Day Then
            nms1 = nms1 & ",'" & dr1("姓名") & "'"
        End If
    End If
Next
If nms1 > "" Then
    nms1 = nms1.Trim(",")
    Tables("生日提醒_Table1").filter = "[姓名] In (" & nms1 &")"
Else
    Tables("生日提醒_Table1").filter = "[编号] Is Null"
End If
e.Form.Controls("TEXTBOX1").Text=Tables("生日提醒_Table1").count

For Each dr1 As DataRow In DataTables("生日提醒_Table1").DataRows
    If dr1.IsNull("基本信息_出生日期") = False
        Dim dt1 As Date = dr1("基本信息_出生日期")
        If dt1.Month = Date.Today.Month AndAlso dt1.Day = Date.Today.Day Then
            nms1 = nms1 & ",'" & dr1("姓名") & "'"
        End If
    End If
Next

[此贴子已经被作者于2017/12/30 22:22:26编辑过]

If nms1 > "" Then
nms1 = nms1.Trim(",")
Tables("生日提醒_Table1").filter = "[姓名] In (" & nms1 &")"

e.Form.Controls("TEXTBOX1").Text=Tables("生日提醒_Table1").count
Else
Tables("生日提醒_Table1").filter = "[编号] Is Null"

e.Form.Controls("TEXTBOX1").Text=0
End If

主题：[求助]日期计算