Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生记录的问题


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

主题：生记录的问题
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		生记录的问题  发帖心情 Post By：2025/1/3 14:56:00 [显示全部帖子]

如何根据表B的字段的天数和开始日期，级别为A的数据生成记录，如果生成记录的日期是表A的日期的星期六，星期日，或节假不为空时，跳过，向下日期生成日期？
如下图：


[此贴子已经被作者于2025/1/9 9:46:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/6 9:03:00 [显示全部帖子]

如何实现根据表B和表A的数据和条件生成表C的记录？步骤如下： 　 　
1.在表B中将项目相同和级别的数据进行合并； 　 　 　 　 　 　 　
2.将表B按条件合并后的数据，根据状态一和状态二均为1时，生成表C的记录； 　 　 　
3.生成表C记录时，生成开始日期如果是表A的中星期六，星期日，节假，要跳过，顺延下个日期？
注：1.表B中灰色的记录是状态一和状态二均不是1时，不生成表C的记录； 　 　 　 　 　
2.表B中线蓝与绿色的虽然项目、状态一和状态二相同，但级别不同，需根据条件独立生成表C的记录。 　


[此贴子已经被作者于2025/1/6 15:40:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/6 10:38:00 [显示全部帖子]

少一个很关键同类项目合并，再生成记录，

具体代码如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/8 9:49:00 [显示全部帖子]



    Do While cnt > 0
'    Do While xs > 0 
     
        If dr Is Nothing Then
            nr = Tables("表D").addnew


 
            nr("日期") = d1           
            cnt -= 1
        End If
        d1 = d1.adddays(1)
    Loop
Next 


如何实现代码一和代码二组合，实现合并后，生成记录？
[此贴子已经被作者于2025/1/9 9:48:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/8 10:14:00 [显示全部帖子]

服务报错
[此贴子已经被作者于2025/1/9 9:37:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/8 12:02:00 [显示全部帖子]

过期不能升级，打不开，请贴代码，谢谢!

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/8 13:49:00 [显示全部帖子]

请有最新版大神，帮转，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/8 15:05:00 [显示全部帖子]

请各位有最新版大神伽，帮转实例或代码，谢谢
[此贴子已经被作者于2025/1/8 17:08:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1319 积分：9055 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2025/1/8 23:11:00 [显示全部帖子]


    Dim zs As Integer = r("计划运动量")
    Do While cnt > 0
'    Do While xs > 0 
        dr = DataTables("表A").find("日期=#" & d1 & "# and (星期 in ('星期六','星期日') or 节假 is not null)")
        If dr Is Nothing Then
            nr = Tables("表D").addnew


 
            nr("日期") = d1           
            cnt -= 1
        End If
        d1 = d1.adddays(1)
    Loop
Next 

问题1；代码二，为何不能遍历？Do While cnt > 0只能以表B的一条记录生成表D，Do While xs > 0 无限遍历以表B的一条记录生成表D，正确遍历，如何实现？
问题2:如何实现代码一和代码二组合，实现合并后，生成记录？


老师，上面是改哪些代码，完整代码，请提供一下，谢谢
[此贴子已经被作者于2025/1/9 9:45:09编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询