Foxtable(狐表)用户栏目专家坐堂 → 错在哪里?!


  共有9061人关注过本帖树形打印复制链接

主题:错在哪里?!

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/5/23 19:43:00 [显示全部帖子]

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

再这样 :

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/5/23 20:36:00 [显示全部帖子]

以下是引用程兴刚在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("日期")


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/5/23 20:48:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/5/23 21:32:00 [显示全部帖子]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/5/23 22:54:00 [显示全部帖子]

你要是用按钮可以这样:


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

 


 回到顶部