错在哪里？！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr1 As DataRow =DataTables("值班表").Find("日期 = #" & e.Datarow("日期") & "# "

再这样：

dr1("日期") >= #2012-05-01# And dr1("日期") <= #2012-05-31#

[此贴子已经被作者于2012-5-23 20:32:50编辑过]

以下是引用程兴刚在2012-5-23 19:56:00的发言：

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("值班表")

Dim r As row =Tables("值班表").Current
If e.DataCol.Name = "姓名" And dr.IsNull("姓名") = False and dt("日期") >= #2012-05-01# And r("日期") <= #2012-05-31# Then
…………

dt("日期") 笔误吧：》 r("日期")

有点交叉表的问道哈···

Dim dr As DataRow = e.DataRow
Dim drs As List(Of DataRow)
drs =DataTables("值班表").Select("正班 = '" & e.Datarow("姓名") & "' and 日期 >= #2012-05-01# And 日期 <= #2012-05-31# " )
dr("星期一") = drs.count

[此贴子已经被作者于2012-5-23 21:37:53编辑过]

你要是用按钮可以这样：

For Each r As Row In Tables("值班统计表").Rows
    For Each c As col In Tables("值班统计表").cols
        If c.name.contains("星期")
            Dim drs As List(Of DataRow)
            drs =DataTables("值班表").Select("正班 = '" & r("姓名") & _
            "' And 星期 = '" & c.name & _
            "' And 节假日 = False And 日期 >= #2012-04-01# And 日期 <= #2012-06-30# " )
            r(c.name) = drs.count
        End If
        If c.name.contains("副班")
            Dim drs As List(Of DataRow)
            drs =DataTables("值班表").Select("副班 = '" & r("姓名") & _
            "' And 日期 >= #2012-04-01# And 日期 <= #2012-06-30# " )
            r(c.name) = drs.count
        End If
        If c.name.contains("节假日")
            Dim drs As List(Of DataRow)
            drs =DataTables("值班表").Select("正班 = '" & r("姓名") & _
            "' and 节假日 = true And 日期 >= #2012-04-01# And 日期 <= #2012-06-30# " )
            r(c.name) = drs.count
        End If
    Next
Next

主题：错在哪里？！