需要在一个表中批量增加行,并且对每一个新增行的部分字段进行预赋值,新增行第一列的内容等于增加的序号。
代码如下:
Dim i As Integer
Dim max As Integer = RibbonTabs("日常工作").Groups("操作").Items("数量").Value '从这里获取要增加多少行
For i=1 To max
Dim dr As Row = Tables("表1.表2").AddNew()
dr("第一列")=i
dr.Save()
Next
执行结果与预期不同。始终只有增加的第一行的数据在变,其它行数据均为空,并且执行完后除第一行外,其余行均没有保存。好奇怪。
关键是Dim dr As Row = Tables("表1.表2").AddNew()这句代码好奇怪,但是下列测试代码执行结果正确:
Dim dr1 As Row = Tables("表A").AddNew()
Dim dr2 As Row = Tables("表A").AddNew()
dr1("第一列")="a"
dr2("第一列")="b"
难道是关联表的bug?