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

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

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

cyrollin

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

加好友

发短信

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

做了一个考勤表，需要帮助 发帖心情

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

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

考勤表窗口里面要显示表A 休息人员的休息日期（用红色显示）和统计休息天数。

数据表：考勤表的datacolchanged不知道怎么写。

求助甜甜：），谢谢！

cyrollin

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

加好友

发短信

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

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

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

这是实例

有点甜

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

加好友

发短信

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

Post By：2018/10/9 11:04: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-1
        dr(dr.DataTable.DataCols(i).name) = Nothing
    Next
    For Each cdr As DataRow In DataTables("表A").Select(filter & " and 休息人员='" & dr("姓名") & "'")
        For i As Integer = 1 To dr.DataTable.DataCols.count-1
            Dim dc = dr.DataTable.DataCols(i)
            If dc.caption = cdate(cdr("日期")).day Then
                dr(dc.name) = 1
            End If
        Next
    Next
Next

cyrollin

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

加好友

发短信

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

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

点选单选框 “本月查询”， foxtable自动退出了。。。。。

我需要考勤表的 datacolchanged 事件里面的日期是一个变量，而不是一个具体的日期(

Dim d As Date = "2018-10-01"

)

因为我还需要查询，本月，上月，本周，上周的考勤。

[此贴子已经被作者于2018/10/9 11:25:37编辑过]

有点甜

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

加好友

发短信

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

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

1、代码不要写到datacolchanged事件；写到按钮里面执行。

2、动态赋值，参考

http://www.foxtable.com/webhelp/scr/2720.htm

http://www.foxtable.com/webhelp/scr/1337.htm

cyrollin

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

加好友

发短信

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

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

恩，那我把筛选日期写到单选按钮里面，在考勤表的datacolchanged 事件里面只写上这样：

For Each dr As DataRow In DataTables("考勤表").Select("姓名 is not null")
    For i As Integer = 1 To dr.DataTable.DataCols.count-1
        dr(dr.DataTable.DataCols(i).name) = Nothing
    Next
    For Each cdr As DataRow In DataTables("表A").Select(" 休息人员='" & dr("姓名") & "'")
        For i As Integer = 1 To dr.DataTable.DataCols.count-1
            Dim dc = dr.DataTable.DataCols(i)
            If dc.caption = cdate(cdr("日期")).day Then
                dr(dc.name) = 1
            End If
        Next
    Next
Next

看行不？还有好像没在我创建的副本表（Table_rest）里面进行查询。

这里要改成这样吗？ For Each cdr As DataRow In e.form.controls("Table_rest").Table.Select(" 休息人员='" & dr("姓名") & "'")

然后提示错误： .NET Framework 版本：2.0.50727.8825

Foxtable 版本：2018.9.9.1

错误所在事件：表，考勤表， DataColChanged

详细错误信息：

调用的目标发生了异常。

重载决策失败，因为没有可访问的“Select”接受此数目的参数。

[此贴子已经被作者于2018/10/9 11:52:59编辑过]