主题：分段连续输入一段时间怎么设置代码

如图01所示，我在开始那里输入2012-12-03，在结束那里输入2012-12-08，点确认，一段时间就出现在婚假明细那里，然后我想继续输入一段时间，从2012-12-12到2012-12-19，点确定，之后一段时间就继续跟着之前的一段时候的后面，输入到婚假明细的那里，效果如图02所示。

 把你datacolchanged事件里的第一段替换成。

Select Case e.DataCol.name
    Case "婚假_开始","婚假_结束"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("婚假_开始") = False And dr.IsNull("婚假_结束") = False
            dr("婚假") += DateDiff("d",dr("婚假_开始"),dr("婚假_结束"))
            Dim s As String
            For i As Integer = 0 To dr("婚假")
                s = s & "," & Format(dr("婚假_开始").AddDays(i),"MM-dd")
            Next
            dr("婚假明细") += s.Trim(",")
        End If
End Select

我试了一下，已经可以跟着后面添加了，但是，后加一段时间多出了4天

我输入了1号到3号，又输入了11号到13号，结果后面多出了14号到17号的，你看一下，怎么回事？
此主题相关图片如下：03.png

 好的，再改一下

Select Case e.DataCol.name
    Case "婚假_开始","婚假_结束"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("婚假_开始") = False And dr.IsNull("婚假_结束") = False
            dr("婚假") += DateDiff("d",dr("婚假_开始"),dr("婚假_结束"))
            Dim s As String
            For i As Integer = 0 To DateDiff("d",dr("婚假_开始"),dr("婚假_结束"))
                s = s & "," & Format(dr("婚假_开始").AddDays(i),"MM-dd")
            Next
            dr("婚假明细") += s.Trim(",")
        End If
End Select

ok啦，谢谢！真是博大精深啊，这样都可以！