主题：请教手动填充问题

Dim dr As DataRow=DataTables("销售").DataRows(1)
Dim d As Date=dr("日期")
Dim y,m,t As Integer
y=year(d)
m=month(d)
t= Date.daysinmonth(y,m)

Dim vals As List(Of String)
vals = DataTables("销售").GetUniqueValues("经手人<>''", "经手人")
For i As Integer = 0 To Vals.Count - 1
      For j As Integer=1 To t
        Dim JDay As Date = New Date(y,m,j)
       Dim dr2 As DataRow = DataTables("应收明细").AddNew()
        dr2("业务员") = Vals(i)
        dr2("日期") = JDay
    Next
Next