报错裁图

此主题相关图片如下：360反馈意见截图1617111787127108.png

老师，下面单选框按钮代码报错。

Dim d As Date = Date.Today
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
Dim ids As String
For Each dr As DataRow In DataTables("通讯录").DataRows
    Dim dt As Date = dr("基本信息_出生日期")
    dt = New Date(Date.Today.Year,dt.Month,dt.Day)
    If dt >= fd AndAlso dt <= ld Then
   ids = ids & "," & dr("编号")
    End If
Next
If ids > "" Then
    ids = ids.Trim(",")
    Tables("通讯录").filter = "[编号] In (" & ids &")"
Else
Tables("通讯录").filter  = "[编号] Is Null"
End If
e.Form.Controls("TEXTBOX53").Text=Tables("通讯录").count

老师，"出身日期"空的单元格不要筛选进去。

此主题相关图片如下：图像 3.png