主题：自动添加问题

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行，以上代码应该如何修改。