- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查找符合条件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108626)
-- 发布时间：2017/10/26 10:23:00
-- 查找符合条件
辅导日期是日期格式，月份是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
[此贴子已经被作者于2017/10/26 10:52:23编辑过]
-- 发布时间：2017/10/26 11:23:00
--
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
-- 发布时间：2017/10/26 11:53:00
--
谢谢