报错裁图
此主题相关图片如下:360反馈意见截图1617111787127108.png
![dvubb 按此在新窗口浏览图片](UploadFile/2015-1/20151171025422992.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