以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 临时表生成时出错。。。。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107320)

--  作者:2900819580
--  发布时间:2017/9/25 20:12:00
--  [求助] 临时表生成时出错。。。。


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


--  作者:有点蓝
--  发布时间:2017/9/25 20:41:00
--  
1、开启事件,参考http://www.foxtable.com/webhelp/scr/0671.htm

DataTables("表A").GlobalHandler.KeyDown = True.

2、sql必须加上主键

tbl = e.Form.CreateSQLTable("Table7","se lect [_Identify],[i],[序号],[子阶代码],[名称],[规格型号],[单位],[用量],[车间],[组别] from {BOM} where 父阶代码= \'2S.MIC25TKT01D20/004\'","ksg")