需求：将已数据，生成记录，星期六，星期天不生成数据，生成随机数=总数?也就是如何实现将表A生成表B？
表A
编号 总数 系数 开始日期
D01 1000 3 2024-3-11
D02 2000 2 2024-3-15
注：2024-3-16，2024-3-17是星期六，星期天，不生数据。
需求结果显示：
表B
编号 总数 系数 开始日期 随机数
D01 1000 3 2024-3-11 330
D01 1000 3 2024-3-12 337
D01 1000 3 2024-3-13 333
D02 2000 2 2024-3-15 1020
D02 2000 2 2024-3-18 980
[此贴子已经被作者于2024/3/22 12:58:59编辑过]
如果是3个数生成随机数，排除0和500，那么有两个随机数是1-499，剩余的随机数就用总数减去前面连个随机数
Dim Val1 As Integer = Rand.Next(1, 499) '生成1到499之间的随机整数
Dim Val2 As Integer = Rand.Next(1, 499) '生成1到499之间的随机整数
Dim Val3 As Integer = 100 - Val1 - Val2
Output.show(Val1)
Output.show(Val2)
Output.show(Val3)
[此贴子已经被作者于2024/3/22 13:24:01编辑过]
可能我表达不清表B是根据表A的数据生成，
需求：如何将“A的数据，星期六，星期天，不生数据，生成表B的数据？
dim nr as row
for each r as row in tables("a").rows
dim xs as integer = r("系数")
dim d as date = r("开始日期")
dim zs as integer = r("总数")
do while xs > 0
nr = tables("b").addnew
if d.DayOfWeek=6 then d = d.adddays(2)
if d.DayOfWeek=0 then d = d.adddays(1)
nr("编号")=r("编号")
nr("
开始日期")=d
if xs = 1
nr("随机数") = zs
else
nr("随机数")=Rand.Next(1, zs)
zs = zs - nr("随机数")
end if
loop
[此贴子已经被作者于2024/3/22 14:21:43编辑过]
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,生成随机数,Button1,Click
详细错误信息：
“minValue”不能大于 maxValue。
参数名: minValue