此主题相关图片如下：无标题.png

问题一：

    全局代码中如何判断是在TAble中按下CTRL+D，执行以下代码

If ( e.control = True AndAlso e.keycode= keys.d ) Or e.keycode= keys.F6  Then
    Syscmd.Edit.RepeatFill()
End If

问题二：

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim p As WinForm.TabPage = tab.TabPages.Add(bn, bn)
Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable("Table7","se lect [i],[序号],[子阶代码],[名称],[规格型号],[单位],[用量],[车间],[组别] from {BOM} where 父阶代码= \'2S.MIC25TKT01D20/004\'","ksg")
tbl.Dock = 5
p.AddControl(tbl)
tab.SelectedPage = p

Dim tb As Table = Tables(e.Form.Name & "_Table7" )
tb.AutoSizeCols
tb.Sort = "序号"