主题：请教手动填充问题

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

点击浏览该文件:管理项目4.zip

应收明细表 想达成目标：根据销售表 筛选出经手人（不重复），比如18人，再筛选出销售表中当月天数，（如2011年7月为31天），则在应收明细表中自动列出：业务员列，战三2011-7-1-2011-7-31），日期，2011-7-1.。。。2011-7-31，李四相同，即自动升生成填充：18位经手人31次，18-31行，日期1-31日18次，

  好像是一个双循环，但具体不知，请指教（具体代码见应收明细窗口按钮）

效果见附件book1.xls

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

点击浏览该文件:管理项目4.zip

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

谢谢，但是，点击按钮出现错误提示：Exception has been thrown by the target of an invocation.

   点击“运行错误”窗口上“X”一次出现一行数据，估计是日期格式问题，继续请教如何解决

不好意思是我设置表事件错误造成，上述代码无误，再次感谢