以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教手动填充问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24105)

--  作者:szp2012
--  发布时间:2012/9/30 15:14:00
--  请教手动填充问题

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目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


--  作者:sloyy
--  发布时间:2012/10/2 1:34:00
--  

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


--  作者:szp2012
--  发布时间:2012/10/2 13:47:00
--  

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

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


--  作者:szp2012
--  发布时间:2012/10/2 14:12:00
--  
不好意思是我设置表事件错误造成,上述代码无误,再次感谢