单双周自动显示对应人选及数字 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单双周自动显示对应人选及数字

共有5774人关注过本帖树形打印复制链接主题：单双周自动显示对应人选及数字

shipangzi

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

加好友

发短信

等级：幼狐帖子：85 积分：691 威望：0 精华：0 注册：2011/8/14 13:39:00

Post By：2013/11/11 7:34:00 [只看该作者]

不用那么麻烦计算单双周，只要实现本周和下周轮流交替即可

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/11/11 9:20:00 [只看该作者]

呵呵，我们知道是本周，还是下周？

我怎么知道明天是那一天，因为每天的明天都不同。

[此贴子已经被作者于2013-11-11 9:25:23编辑过]

shipangzi

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

加好友

发短信

等级：幼狐帖子：85 积分：691 威望：0 精华：0 注册：2011/8/14 13:39:00

Post By：2013/11/11 13:08:00 [只看该作者]

老爹，你想怎么定义本周和下周都行，因为表中的内容我可以手工替换

sloyy

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

加好友

发短信

等级：九尾狐帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2013/11/11 13:53:00 [只看该作者]

条件不足,神仙也没办法

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/11/11 14:19:00 [只看该作者]

做两个按钮，单周按钮：

For i As Integer=1 To 7
    Dim dr As DataRow = DataTables("表A").AddNew
    Dim drr As DataRow = DataTables("表B").Find("星期='" & i & "'","星期",1)
    dr("星期")=i
    If drr IsNot Nothing Then
        dr("第二列")=drr("第二列")
        dr("第三列")=drr("第三列")
    End If
Next

双周按钮：

DataTables("表A").datarows.Clear
For i As Integer=1 To 7
    Dim dr As DataRow = DataTables("表A").AddNew
    Dim drr As DataRow = DataTables("表B").Find("星期='" & i & "'","星期",1)
    dr("星期")=i
    If drr IsNot Nothing Then
        dr("第二列")=drr("第二列")
        dr("第三列")=drr("第三列")
    End If
Next