datagrid 复制 和粘贴的问题

jiangjubo jiangjubo 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
请问有没有人做过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,有些就没有数据呢?
...全文

相关推荐

评论 1
收藏 已收藏
分享
返回顶部