以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129104)

--  作者:weianfu
--  发布时间:2018/12/21 15:07:00
--  [求助]
老师!
      我在窗口表中设置“重复填充”快捷键,
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.colsel) = e.Table.rows(i-1)(e.Table.colsel)
    Next
    e.cancel = True
End If
但是,我想让快捷键在选中表A 字段名等于“二次分配号”时才生效,代码应该怎么编?

--  作者:有点甜
--  发布时间:2018/12/21 15:10:00
--  
If e.keycode = Keys.Q AndAlso e.control = True AndAlso e.Table.cols(e.Table.colsel).name = "二次分配号" Then
    For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition
        e.Table.rows(i)(e.Table.colsel) = e.Table.rows(i-1)(e.Table.colsel)
    Next
    e.cancel = True
End If