表A新增行根据表A的条件在表B生成数据. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表A新增行根据表A的条件在表B生成数据.

共有3210人关注过本帖树形打印复制链接主题：表A新增行根据表A的条件在表B生成数据.

有点蓝

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

加好友

发短信

等级：超级版主帖子：111583 积分：568027 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/20 15:30:00 [显示全部帖子]

请上传实例说明

有点蓝

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

加好友

发短信

等级：超级版主帖子：111583 积分：568027 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/20 15:45:00 [显示全部帖子]

获取100天内的星期二？

Dim d As Date = #10/20/2020#

Dim d2 As Date = d.AddDays(100)

Dim i As Integer = 1

Do While d <= d2

If d.DayOfWeek = 2 Then

Output.Show(d)

i = 7

End If

d = d.AddDays(i)

Loop

有点蓝

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

加好友

发短信

等级：超级版主帖子：111583 积分：568027 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/20 22:01:00 [显示全部帖子]

获取，或者给单元格赋值应该按行操作，比如第一行：Tables("表A").rows(0)。第四行日期列的值Tables("表A").rows(0)("日期")。当前行日期列的值：Tables("表A").current("日期")

而不是按列操作，Tables("表A").Cols("星期") 、DataTables("表B").DataCols("日期")这种是永远取不到单元格的值的

dim r as row = Tables("表A").current '当前选中的行

if r is nothing then return '如果表格没有数据

Dim d As Date = r("日期")

Dim d2 As Date = d.AddDays(r("天数"))

Dim i As Integer = 1

dim nr as row

Do While d <= d2

If d.DayOfWeek = r("星期") Then

nr = Tables("表B").addnew()

nr("日期") = d

i = 7

End If

d = d.AddDays(i)

Loop

有点蓝

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

加好友

发短信

等级：超级版主帖子：111583 积分：568027 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/22 8:32:00 [显示全部帖子]

循环里使用find到表B查询是否有同样日期的值，如果有就不要新增了：http://www.foxtable.com/webhelp/topics/0396.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：111583 积分：568027 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/22 13:37:00 [显示全部帖子]

Do While dd <= dd2

If dd.DayOfWeek = rr("星期数字") Then

dim bh as string = dd + rr("校区")+ rr("分类")+ rr("科目")+ rr("课程")+ rr("课时段")

Dim wr As DataRow = DataTables("课程档案DAY").Find("课程档案编号 = '" & bh & "'")

If wr Isnot Nothing Then

kc = Tables("课程档案DAY").addnew()

kc("课程档案编号") = bh

kc("日期") = dd

kc("星期") = rr("星期")

end if

ii = 7

End If

dd = dd.AddDays(ii)

Loop

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

主题：表A新增行 根据表A的条件 在表B生成数据.

主题：表A新增行根据表A的条件在表B生成数据.