主题：自动添加问题

For Each nm As String In DataTables("打卡人员清单").GetUniqueValues("","姓名")
        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 dm as integer = Date.DaysInMonth(y, m)
        Dim dt2 As New Date(y, m, dm) '获取本月的最后一天
        For i As Date = 1 To dm
            Dim dr2 As DataRow = DataTables("出勤表").AddNew()
            dr2("日期") = i
            dr2("姓名") = nm
        Next
Next