以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  单击子表显示的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152771)
--  作者：yaojun
--  发布时间：2020/7/21 17:11:00
--  单击子表显示的问题

有一关联表“生产订单.表面计划”，怎样让单击这个子表是显示“生产订单_table6”里的内容，而单击“表面计划”表时不显示，求代码，谢谢！

 
fil= e.Row("订单号")
Tables("生产订单_table6").Filter="订单号 like \'" & fil & "\'"
--  作者：有点蓝
--  发布时间：2020/7/21 17:27:00
--  
点击事件里判断表名

if e.table.name = "生产订单.表面计划" then
msgbox("点击的是关联表")
end if
--  作者：yaojun
--  发布时间：2020/7/21 19:25:00
--  

谢谢蓝老师，另外请问这段用like的代码怎么不显示，是用错了吗

If e.Table.name = "生产订单.PMC车间计划" Then
    Dim fil As String
    fil= e.Row("订单号")
    Tables("生产订单_table3").Filter =  "合并订单 Like \'* " & fil & "*\'"
End If

生产订单。PMC车间计划“订单号”内容是：730单人椅，生产订单_table3“合并订单”内容是：730单人椅/500，615双人椅/200

谢谢

[此贴子已经被作者于2020/7/21 19:29:41编辑过]
--  作者：有点蓝
--  发布时间：2020/7/21 20:26:00
--  
Tables("生产订单_table3").Filter =  "合并订单 Like \'* " & fil & "*\'" 有个多余的空格
--  作者：yaojun
--  发布时间：2020/7/21 21:34:00
--  

谢谢蓝老师，谢谢，找了好久问题都没有找到。