Dim dp1 As WinForm.DateTimePicker = Forms("日期").Controls("DateTimePicker1") Dim dp2 As WinForm.DateTimePicker = Forms("日期").Controls("DateTimePicker2") Dim d1 As Date = dp1.Value Dim d2 As Date = dp2.value Dim d = d1 Do While d <= d2 Dim nr As Row = Tablesa("表A").addnew nr("日期") = d d = d.adddays(1) Loop
加好友 
发短信
Post By：2019/4/4 11:08:00 [显示全部帖子]
