此主题相关图片如下:无标题.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 = "序号"