主题：删除窗口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