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