Foxtable(狐表)用户栏目专家坐堂 → [求助]统计字符数量


  共有3098人关注过本帖平板打印复制链接

主题:[求助]统计字符数量

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/31 9:00:00 [只看该作者]

考勤表datacolchanged事件

If e.DataCol.Name.Contains("日期") Then
    Dim 早 As Integer
    Dim 带早 As Integer
    Dim 中 As Integer
    Dim 带中 As Integer
    Dim 夜 As Integer
    Dim 带夜 As Integer
    For i As Integer = 1 To 10
        Select Case e.DataRow("日期_" & i)
            Case "早"
                早 = 早+1
            Case "带早"
                早 = 早+1
                带早 = 带早+1
        End Select
    Next
    e.DataRow("早") = 早
    e.DataRow("带早") = 带早
End If

剩余的代码自己补全

 回到顶部
总数 32 1 2 3 4 下一页