主题：查找符合条件

辅导日期是日期格式，月份是ComboBox（组合框），请老师指教，谢谢！

For Each dr As DataRow In DataTables("辅导缴退费").Select("学生编号 = '"& dt.DataRows(0)("学生编号") & "' And 退费人 Is Not Null And Format(辅导日期,""yyyy-MM"") = Format(#"& e.Form.Controls("月份").Value &"#,""yyyy-MM"")")
    dr("退费日期") = e.Form.Controls("退费日期").Text
Next

 

此主题相关图片如下：qq截图20171026101523.png

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

谢谢