老师好,下面这段代码不起作用,请看一下,谢谢指教
Dim r As Row = Tables("日常采购统计表").Current '----定义当前行
Dim dt As Date = r("录入日期")
Dim m As Integer = dt.Month '----获取指定日期的月份
Dim y As Integer = dt.Year '----获取指定日期的年份
For Each dr1 As DataRow In DataTables("日常采购统计表").dataRows
Dim dt1 As Date = dr1("录入日期")
Dim m1 As Integer = dt1.Month
Dim y1 As Integer = dt1.Year
Dim drs As List(Of DataRow) = DataTables("日常采购统计表").Select(""& y1 &" = "& y &" And "& m1 &" = "& m &"")
For Each dr As DataRow In drs
'-----代码
Next
Next