我想在运行时在vaSpread中插入一个重复的行。
当用户单击“添加”按钮时。
我找到了一条关于删除现有RandomRange
的链接。
可能此链接对您了解我的要求很有用。
我只想在当前行下面添加新行。
由于
答案 0 :(得分:0)
不知道这是否会有所帮助,但我有一个类似的问题,我需要插入一个空行,但插入一个dublicate甚至更容易一些。我有点不确定它是否正常工作,因为由于其他原因我得到了不好的结果,但这里是我为插入行写的函数(调整为插入的行是dublicate而不是空)
Public Sub InsertRow(ByVal index&, ByRef table As vaSpread)
With table
table.MaxRows = table.MaxRows + 1
Dim i
For i = table.MaxRows To index Step -1
Dim j
For j = 1 To table.MaxCols
Dim tmp
Call .GetText(j, i, tmp)
Call .SetText(j, i + 1, tmp)
Next j
Next i
End With
End Sub
其中index是要被公开的行的位置。 这样做基本上是将行的内容复制到从结尾开始直到达到索引的下一行。希望这有帮助。
答案 1 :(得分:0)
感谢您的回答4谢谢,求助!
sLista.MaxRows = conteo
sql = "SELECT Descripcion FROM xxx WHERE bActivo=1 ORDER BY Id"
If (GcDb.dbExecQuery(sql, rs)) Then
Do Until rs.EOF
tmp = rs("Descripcion")
Call sLista.SetText(1, k, tmp)
k = k + 1
rs.MoveNext
Loop
rs.Close
End If