以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]输入变量后自动填充日期列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133025)
--  作者：foxstudent
--  发布时间：2019/4/4 10:17:00
--  [求助]输入变量后自动填充日期列
想实现在窗口输入框中输入起讫日期，然后在表的日期里自动按日填充日期，请问该怎么做？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：有点甜
--  发布时间：2019/4/4 11:08:00
--  
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
--  作者：foxstudent
--  发布时间：2019/4/4 11:38:00
--  
非常感谢，学习了！
--  作者：denghui69986
--  发布时间：2023/5/11 18:07:00
--  
这代码是放在那个事件里面才可以
--  作者：有点蓝
--  发布时间：2023/5/11 20:22:00
--  
按钮，或者日期控件valuechanged事件