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

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

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

狐狸爸爸

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

加好友

发短信

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

Post By：2013/11/9 8:49:00 [显示全部帖子]

看不懂，你最好再表述清楚一些

狐狸爸爸

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

加好友

发短信

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

Post By：2013/11/11 9:20:00 [显示全部帖子]

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

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

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：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

下一主题 >> << 上一主题

主题：单双周自动显示对应人选及数字