以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56322)

--  作者:tujiu
--  发布时间:2014/9/3 10:13:00
--  求助

求助

看一下截图。
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


第一个截图中有开始日期和截止日期两列内容。上面的开始日期是2014-09-01,截止日期是2014-09-03

我想让他在第二个截图日历中的9月2日和3日都显示该条内容。怎么做?


--  作者:有点甜
--  发布时间:2014/9/3 10:18:00
--  

 1、这个没办法,必须要改原先的代码了,把你的项目发上来。

 

 2、或者,你可以添加三条日期不一样的事务。


--  作者:tujiu
--  发布时间:2014/9/3 10:28:00
--  

那可以改变开始日期吗?就是说当添加的日期为9月1日到9月3日,也就是等于在Table表中增加了3行数据,这三行的开始日期为9月1日,9月2日,9月3日。截止日期就是都为9月3日。

不用for each方法,有别的方法吗?因为for each 会从表第一行开始遍历,最后会把表中的原先数据全部改变为新值。


--  作者:有点甜
--  发布时间:2014/9/3 10:36:00
--  
Select Case e.DataCol.name
    Case "开始日期", "截止日期"
        If e.DataRow.IsNull("开始日期") = False AndAlso e.DataRow.IsNull("截止日期") = False Then
            Dim d As Date = e.DataRow("开始日期")
            d = d.AddDays(1)
            SystemReady = False
            Do While d <= e.DataRow("截止日期")
                Dim ndr As DataRow = e.DataTable.AddNew
                ndr("开始日期") = d
                ndr("截止日期") = e.DataRow("截止日期")
                d = d.AddDays(1)
            Loop
            SystemReady = True
        End If
End Select