窗口Table表中，Ctrl+D重复填充无效吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口Table表中，Ctrl+D重复填充无效吗？

共有2278人关注过本帖树形打印复制链接主题：窗口Table表中，Ctrl+D重复填充无效吗？

feixianzhi

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

窗口Table表中，Ctrl+D重复填充无效吗？ 发帖心情

Post By：2017/3/21 16:15:00 [只看该作者]

麻烦问一下各位老师，在窗口Table表中，Ctrl+D重复填充无效吗。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/21 17:37:00 [只看该作者]

要自己做一个 Ctrl+Q 的快捷键处理

编写 keyDown 事件

If e.keycode = Keys.Q AndAlso e.control = True Then
    For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition
        e.Table.rows(i)("第二列") = e.Table.rows(i-1)("第二列")
    Next
    e.cancel = True
End If

feixianzhi

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/3/22 7:49:00 [只看该作者]

非常感谢有点色老师的帮忙。

feixianzhi

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/4/17 11:02:00 [只看该作者]

以下这段代码是在窗口KeyDown事件中，按Ctrl+Q 键进行重复填充

'按Ctrl+Q 键进行重复填充

If e.keycode = Keys.Q AndAlso e.control = True Then

For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition

e.Table.rows(i)("返利编号") = e.Table.rows(i-1)("返利编号")

e.Table.rows(i)("高开编号") = e.Table.rows(i-1)("高开编号")

e.Table.rows(i)("相关说明") = e.Table.rows(i-1)("相关说明")

e.cancel = True

End If

以上代码重复填充必须是选定的行进行填充。

我想实现，如返利编号列，我第一行已经有值，我想按Ctrl+Q键，对此列筛选出来的行不选定，直接填充到最后一行，能不能实现，请有点色老师帮忙。其他的列也是如此。

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 11:04:00 [只看该作者]

If e.keycode = Keys.Q AndAlso e.control = True Then
    For i As Integer = 1 To e.Table.rows.count-1
        e.Table.rows(i)("返利编号") = e.Table.rows(i-1)("返利编号")
        e.Table.rows(i)("高开编号") = e.Table.rows(i-1)("高开编号")
        e.Table.rows(i)("相关说明") = e.Table.rows(i-1)("相关说明")
    Next
    e.cancel = True
End If

feixianzhi

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/4/17 12:10:00 [只看该作者]

非常感谢有点色老师。

feixianzhi

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/4/17 14:09:00 [只看该作者]

有点色老师，我想在下面的代码加上粘贴的代码，怎么写：

我已经用Ctrl+C复制了内容，上面这段代码，我得选按Ctrl+V将内容粘贴到单元格里，而后再按Ctrl+Q进行重复复制，我现在想按Ctrl+Q直接粘贴并复制，代码怎么改，请有点色老师帮忙。

feixianzhi

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/4/17 14:23:00 [只看该作者]

请有点色老师帮忙呀。

有点色

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/17 15:19:00 [只看该作者]

If e.keycode = Keys.Q AndAlso e.control = True Then

    Sendkeys.SendWait("^V")
    For i As Integer = 1 To e.Table.rows.count-1
        e.Table.rows(i)("返利编号") = e.Table.rows(i-1)("返利编号")
        e.Table.rows(i)("高开编号") = e.Table.rows(i-1)("高开编号")
        e.Table.rows(i)("相关说明") = e.Table.rows(i-1)("相关说明")
    Next
    e.cancel = True
End If

feixianzhi

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2017/4/17 15:21:00 [只看该作者]

有点色老师，问题已解决，我将代码改成以下这样，不知道对不对，能用。

If e.keycode = Keys.Q AndAlso e.control = True Then
CurrentTable.EditPaste()

For i As Integer = 1 To e.Table.rows.count-1
        e.Table.rows(i)("返利编号") = e.Table.rows(i-1)("返利编号")
        e.Table.rows(i)("高开编号") = e.Table.rows(i-1)("高开编号")
        e.Table.rows(i)("相关说明") = e.Table.rows(i-1)("相关说明")
    Next
    e.cancel = True
End If

我增加了红颜色代码，不知道对不对。

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：窗口Table表中，Ctrl+D重复填充无效吗？