以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉月份自动填充(问题未解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30043)
--  作者：gohtml
--  发布时间：2013/3/19 22:22:00
--  下拉月份自动填充(问题未解决)

各位大大,求帮忙!

我需要一个 使用下拉选项输入第一列自动填充某月每日一行的方法

如果是 选择 2013年1月份第一列(日期)自动更改并填充31天, 选择2013年2月第一列(日起)就自动更改并填充28天,以此类推

 

 

 日期     销售量    提货量                     
   2013-01-01                            
   2013-01-02                            
   ......                        

   

   2013-01-31                            


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 

日期 销售量 提货量
2013-02-01
2013-02-02
......

2013-02-28

 

 

[此贴子已经被作者于2013-3-19 22:48:59编辑过]
--  作者：有点甜
--  发布时间：2013/3/19 22:25:00
--  

http://www.foxtable.com/help/topics/0140.htm

 
--  作者：gohtml
--  发布时间：2013/3/19 22:28:00
--  

我要的是 窗口 下拉框 代码 不要http://www.foxtable.com/help/index.html?n=0140.htm这种方法
--  作者：有点甜
--  发布时间：2013/3/19 22:38:00
--  
不明白你要怎样下拉，其实那种批量输入日期的方式已经很方便的哦
--  作者：gohtml
--  发布时间：2013/3/19 22:53:00
--  

感谢你的回复,已上图片,看图片中的表格,应该不难理解
--  作者：有点甜
--  发布时间：2013/3/19 22:58:00
--  
Dim dt1 As Date = #3/1/2012#
Dim dt2 As Date = #3/31/2012#
Dim tp As timespan = dt2 - dt1
For i As Integer = 0 To tp.TotalDays
    Dim dr As DataRow = DataTables("某个表").AddNew
    dr("日期") = dt1.AddDays(i)
Next
--  作者：gohtml
--  发布时间：2013/3/19 23:10:00
--  

感谢你回复,我是刚入手的菜鸟,我想问个弱弱的问题,

Dim dt1 As Date = #3/1/2012#
Dim dt2 As Date = #3/31/2012#
Dim tp As timespan = dt2 - dt1
For i As Integer = 0 To tp.TotalDays
    Dim dr As DataRow = DataTables("统计表").AddNew
    dr("日期") = dt1.AddDays(i)
Next

 

代码中的#3/1/2012#和#3/31/2012#是否可以更换成日期框输入?
--  作者：有点甜
--  发布时间：2013/3/19 23:13:00
--  

Dim dt1 As Date = e.form.Controls("起始日期输入框名称").Value
Dim dt2 As Date = e.form.Controls("结束日期输入框名称").Value
Dim tp As timespan = dt2 - dt1
For i As Integer = 0 To tp.TotalDays
Dim dr As DataRow = DataTables("统计表").AddNew
dr("日期") = dt1.AddDays(i)
Next
--  作者：gohtml
--  发布时间：2013/3/19 23:26:00
--  

非常感谢,代码是可以用了,但是出现了一个小问题,就是按下按钮后,第二次或者以后,不是从第一行开始了,而是接着上一次的继续向下输入了

 

Dim dt1 As Date = e.form.Controls("起始日期输入框名称").Value
Dim dt2 As Date = e.form.Controls("结束日期输入框名称").Value
Dim tp As timespan = dt2 - dt1
For i As Integer = 0 To tp.TotalDays
Dim dr As DataRow = DataTables("统计表").AddNew
dr("日期") = dt1.AddDays(i)
Next

 

我要的是按下按钮后,无论按多少次,都是从第一行开始输入

菜鸟真难呀,再次感谢"有点甜"耐心的回复
--  作者：don
--  发布时间：2013/3/20 10:55:00
--  
Dim cnts , i  As Integer 
Dim dt1 ,dt2 As Date 
dt1 = e.form.Controls("起始日期输入框名称").Value
dt2 = e.form.Controls("结束日期输入框名称").Value
Cnts =  DataTables("统计表").DataRows.Count-1 
if   Cnts < (dt2 - dt1 ).TotalDays Then
    DataTables("统计表").AddNew((dt2 - dt1 ).TotalDays-Cnts)
End if

For each dr as datarow In DataTables("统计表").DataRows 
     dr("日期") = dt1.AddDays(i)
     i+=1
Next




[此贴子已经被作者于2013-5-9 16:50:17编辑过]