主题：自动添加问题

For Each nm As String In DataTables("打卡人员清单").GetUniqueValues("","姓名")
        Dim dr As DataRow = DataTables("出勤表").AddNew()
        dr("姓名") = nm
        Dim y As Integer = e.Form.Controls("NumericComboBox1").Value
        Dim m As Integer = e.Form.Controls("ComboBox1").Value
        Dim dt1 As New Date(y, m, 1)
        Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
        For i As Date = dt1 To dt2
            Dim dr2 As DataRow = DataTables("出勤表").AddNew()
            dr2("日期") = i
            dr2("姓名") = nm
        Next
Next

我想点击月份后，｛出勤表｝中自动添加｛打卡人员清单｝的所有姓名，并且每个姓名这个月每天的日期都出来，如：姓名有3个，月份有30天，那么出勤表中就需增加90行，以上代码应该如何修改。

For i As Date = 1 To Date.DaysInMonth(y, m)

这里提示错误 循环控制变量不能是类型Date

还是提示这里的错误

For i As Date = 1 To dm
这里提示错误 循环控制变量不能是类型Date

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

问题还是出现，现我做了一个例子，请查看调试：