以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于动态删除表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62826)
--  作者：jiangxun
--  发布时间：2015/1/8 16:01:00
--  关于动态删除表问题
 

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", True)
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

以上是帮助文件里面的动态增加Table功能

我现在需要动态删除Table怎么办呢？
--  作者：Bin
--  发布时间：2015/1/8 16:11:00
--  
RemoveControl  看看吧
--  作者：jiangxun
--  发布时间：2015/1/8 16:15:00
--  
我点到窗口中表上面就像点到玻璃上，不起作用，只能选择表的列、行等，其它控件都可删掉
--  作者：有点甜
--  发布时间：2015/1/8 16:20:00
--  

 可以啊。

 

e.Form.RemoveControl("Table1")
--  作者：Bin
--  发布时间：2015/1/8 16:23:00
--  
e.form.baseform.Controls(e.Form.name).Controls.RemoveByKey("Table1")


第一个问题不明白你是什么意思? 锁定了表?
--  作者：jiangxun
--  发布时间：2015/1/8 16:24:00
--  

那就是传递参数时的问题。

If e.Button = MouseButtons.Left Then
   
    If e.Sender.Name.StartsWith("C-") Then
        If e.Sender.Name.StartsWith("C-Table-") Then
            vars("x") = e.X
            vars("y") = e.Y
            vars("currCtl_name") = e.Sender.Name
           
        Else
            vars("x") = e.X
            vars("y") = e.Y
            vars("currCtl_name") = e.Sender.Name
        End If
    End If

上面代码传出的是不是鼠标点击的列或是单元格的名称？
--  作者：jiangxun
--  发布时间：2015/1/8 16:25:00
--  

怎么样在鼠标点击Table任何一个部位时，返回Table的name呢？
--  作者：有点甜
--  发布时间：2015/1/8 16:26:00
--  
 你加入msgbox弹出一下看很难？
--  作者：有点甜
--  发布时间：2015/1/8 16:30:00
--  
以下是引用jiangxun在2015-1-8 16:25:00的发言：

怎么样在鼠标点击Table任何一个部位时，返回Table的name呢？

 

不行，除非你开启此表的全局表事件click。不然无法响应点击事件。
--  作者：jiangxun
--  发布时间：2015/1/8 16:49:00
--  

谢谢