做了一个考勤表，需要帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 做了一个考勤表，需要帮助

共有7715人关注过本帖树形打印复制链接主题：做了一个考勤表，需要帮助

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/11 9:35:00 [只看该作者]

For i As Integer = 1 To dr.DataTable.DataCols.count-1

改成

For i As Integer = 1 To dr.DataTable.DataCols.count-2

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/10/11 10:17:00 [只看该作者]

恩，差不多行了，谢谢甜老师。最后一个问题，这个下拉列表的时间要怎么求出来呢？

此主题相关图片如下：微信图片_20181011101522.png

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/11 10:19:00 [只看该作者]

Dim y As string = e.form.controls("combobox1").text

Dim m As string = e.form.controls("combobox2").text

Dim d as date = new date(val(y), val(m), 1)

msgbox(d)

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/10/11 10:28:00 [只看该作者]

棒棒哒，甜甜今天中午我给你加个鸡腿！！！图片点击可在新窗口打开查看

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/10/11 15:15:00 [只看该作者]

甜甜，遇到了一个新的问题。如果休息人员是多值字段，里面有多个值，以前的代码就不能正常运行了。

比如像这样：

此主题相关图片如下：微信图片_20181011151344.png

事例又传上来

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

这段代码应该怎么改呢：

For Each dr As DataRow In DataTables("考勤表").Select("姓名 is not null")

For i As Integer = 1 To dr.DataTable.DataCols.count-2

dr(dr.DataTable.DataCols(i).name) = Nothing

For Each cdr As DataRow In dt.Select(" 休息人员='" & dr("姓名") & "'")

For i As Integer = 1 To dr.DataTable.DataCols.count-2

Dim dc = dr.DataTable.DataCols(i)

If dc.caption = cdate(cdr("日期")).day Then

dr(dc.name) = 1

End If

[此贴子已经被作者于2018/10/11 15:15:38编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/11 15:19:00 [只看该作者]

参考代码

Dim d As Date = "2018-10-01"
Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
For Each dr As DataRow In DataTables("考勤表").Select("姓名 is not null")
    For i As Integer = 1 To dr.DataTable.DataCols.count-2
        dr(dr.DataTable.DataCols(i).name) = Nothing
    Next
    For Each cdr As DataRow In DataTables("表A").Select(filter & " and ','+休息人员+',' like '%," & dr("姓名") & ",%'")
        For i As Integer = 1 To dr.DataTable.DataCols.count-2
            Dim dc = dr.DataTable.DataCols(i)
            If dc.caption = cdate(cdr("日期")).day Then
                dr(dc.name) = 1
            End If
        Next
    Next
Next

hc-mall

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

加好友

发短信

等级：幼狐帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00

Post By：2018/10/11 15:55:00 [只看该作者]

这个实例我要收藏了，后面还有学习的地方！

cyrollin

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

加好友

发短信

等级：四尾狐帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00

Post By：2018/10/11 16:00:00 [只看该作者]

哦，我是这样改的，

For Each cdr As DataRow In dt.Select( "休息人员='" & dr("姓名") & "'" Or "休息人员' Like '%," & dr("姓名") & ",%'" Or "休息人员' like '%," & dr("姓名") & ",%'" Or "休息人员' like '" & dr("姓名") & ",%'")

错误提示：从字符串“休息人员='小王'”到类型“Long”的转换无效。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/11 16:03:00 [只看该作者]

改成

For Each cdr As DataRow In dt.Select("','+休息人员+',' like '%," & dr("姓名") & ",%'")

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

总数 19 上一页 1 2

主题：做了一个考勤表，需要帮助