以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除窗口1_Table2  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59219)
--  作者：Lc
--  发布时间：2014/10/31 1:08:00
--  删除窗口1_Table2
If e.Form.Controls("客户姓名").Value IsNot Nothing Then
   If e.Form.Controls("客户姓名").Value = "张三" Then
      Dim tbl As WinForm.Table
      tbl = e.Form.CreateTable("Table2", "表B", True)
      tbl.SetBounds(200, 0, 120, 60)
      e.Form.Controls("SplitContainer1").Panel2.AddControl(tbl)
      e.Form.Controls("Table2").RowHeaderVisible = False \'关闭行号
      Tables("窗口1_Table2").SetColVisibleWidth("订单|118|") 
      Tables("窗口1_Table2").Filter = "[订单] = \'\'"
     Else
      \'  删除或者移出 窗口1_Table2
    End If
End If
[此贴子已经被作者于2014-10-31 1:08:26编辑过]
--  作者：Bin
--  发布时间：2014/10/31 8:08:00
--  
e.form.RemoveControl("Table1")
--  作者：Lc
--  发布时间：2014/10/31 9:02:00
--  
谢谢