datagrid 复制 和粘贴的问题

[jiangjubo]

请问有没有人做过datagrid的复制和粘贴的功能？
就是复制一行，然后把内容粘贴到另一行
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim v() As Variant
Dim y As Integer
ReDim v(0 To rs.Fields.Count - 1)
If KeyCode = 120 Then '定义f9为复制功能
For y = 0 To rs.Fields.Count - 1
v(y) = rs(y).Value
Next y
End If
If KeyCode = 121 Then '定义F10为粘贴功能
For y = 0 To rs.Fields.Count - 1
rs(y).Value = v(y)
Next y
End If

为什么我在空白行上按下F10，有些空格有数据但是全部为0，有些就没有数据呢？

[chinaboyzyq]

[Quote=引用楼主 jiangjubo 的回复:]
请问有没有人做过datagrid的复制和粘贴的功能？
就是复制一行，然后把内容粘贴到另一行
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim v() As Variant
Dim y As Integer
ReDim v(0 To rs.Fields.Count - 1)
If KeyCode = 120 Then      '定义f9为复制功能
    For y = 0 To rs.Fields.Count - 1
      v(y) = rs(y).Value
    Next y
End If
If KeyCode = 121 Then    '定义F10为粘贴功能
    For y = 0 To rs.Fields.Count - 1
    rs(y).Value = v(y)
    Next y
  End If

为什么我在空白行上按下F10，有些空格有数据但是全部为0，有些就没有数据呢？
[/Quote]
Static v() As Variant
Dim y As Integer
ReDim Preserve v(0 To rs.Fields.Count - 1)