Foxtable(狐表)用户栏目专家坐堂 → [求助] 临时表生成时出错。。。。


  共有1798人关注过本帖树形打印复制链接

主题:[求助] 临时表生成时出错。。。。

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1347 积分:9817 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助] 临时表生成时出错。。。。  发帖心情 Post By: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 = "序号"


 回到顶部