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

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

2、动态赋值，参考

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

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

代码不要写到datacolchanged事件啊，不要啊。

代码写到按钮里面执行啊。

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

改成

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

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)

参考代码

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

改成

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