分段连续输入一段时间怎么设置代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分段连续输入一段时间怎么设置代码

共有11443人关注过本帖树形打印复制链接主题：分段连续输入一段时间怎么设置代码

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/22 15:17:00 [显示全部帖子]

把你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

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/22 15:43:00 [显示全部帖子]

好的，再改一下

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

下一主题 >> << 上一主题

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