主题：查找符合条件

Dim d As Date = e.Form.Controls("月份").Value
d = new Date(d.Year, d.Month, 1)
Dim fitler As String = "学生编号 = '"& dt.DataRows(0)("学生编号") & "' And 退费人 Is Not Null And 辅导日期 >= #" & d & "# and 辅导日期 < #" & d.AddMonths(1) & "#"
For Each dr As DataRow In DataTables("辅导缴退费").Select(filter)
    dr("退费日期") = e.Form.Controls("退费日期").Text
Next