多行填充一行的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码是在哪里给日期里赋值的？

老师，前面的示例我写了日期怎么赋值，后来你修改后我就看不懂怎么给日期赋值了，又如何表达i与d，麻烦老师进一步明确，多谢

我问您我写的代码里，哪一行代码是给日期列赋值的？

如果是别人给的代码都看不懂，一点点问题都得别人跟着改，给再多代码有何意义

Dim s As Date = Date.Today() '今日

For Each dv As DataRow In DataTables("状态表202").Select("日期>=#" & s & "#") '数据来源于表

Dim dr As DataRow = DataTables("未来7天202").Find("桌台编号 = '" & dv("桌台编号") & "' And 桌台类型 = '" & dv("桌台类型") & "' And 桌台名称 = '" & dv("桌台名称") & "'")

If dr Is Nothing Then '如果没找到的话

dr = DataTables("未来7天202").AddNew()

dr("桌台编号") = dv("桌台编号")

dr("桌台类型") = dv("桌台类型")

dr("桌台名称") = dv("桌台名称")

End If

'dr("今日_日期") = dv("日期")

dr("今日_日期") = s

dr("今日_午餐") = dv("预订宴类_午餐")

dr("今日_晚餐") = dv("预订宴类_晚餐")

For i As Integer = 1 To 6

Dim d As Date = s.AddDays(i)

dr = DataTables("未来7天202").Find("桌台编号 = '" & dv("桌台编号") & "' And 桌台类型 = '" & dv("桌台类型") & "' And 桌台名称 = '" & dv("桌台名称") & "'")

If dr Is Nothing Then '如果没找到的话

dr = DataTables("未来7天202").AddNew()

dr("桌台编号") = dv("桌台编号")

dr("桌台类型") = dv("桌台类型")

dr("桌台名称") = dv("桌台名称")

End If

dr("未来第" & i & "天_日期") = dv("日期").AddDays(i-7)

dr("未来第" & i & "天_午餐") = dv("预订宴类_午餐")

dr("未来第" & i & "天_晚餐") = dv("预订宴类_晚餐")

老师，我这样修改的话，日期列赋值正确，但其他列填充还是不行，老师，不好意思，我比较笨的，请耐心手把手的教一下

40楼不是问【d用在何处】，不然在想想

For i As Integer = 1 To 6

'Output.Show(i) 'i显示结果：4，5，6

Dim d As Date = Date.Today().AddDays(i)

Output.Show(d) 'd显示结果：2024-07-22，2024-07-23，2024-07-24

我查了一下，这几句代码代表什么意思，为什么这么写就搞不清了，d只出现一次，其他地方也没有出现过

[此贴子已经被作者于2024/7/18 14:22:52编辑过]

显示的结果是不是需要的日期？那么这个日期应该给哪里赋值？

老师，这些动态合成表达式真不知道如何下手，如何表述

和表达式没有半毛钱的关系。我问的是这个d应该用到哪里，给哪里赋值？！！！结合从41楼开始的问答，都没有一点概念吗？

dr = DataTables("未来7天202").Find("桌台编号 = '" & dv("桌台编号") & "' And 桌台类型 = '" & dv("桌台类型") & "' And 桌台名称 = '" & dv("桌台名称") & "'")

d应放在这一句里吧

主题：多行填充一行的问题