主题：关于动态删除表问题

 

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

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

我现在需要动态删除Table怎么办呢？

RemoveControl  看看吧

我点到窗口中表上面就像点到玻璃上，不起作用，只能选择表的列、行等，其它控件都可删掉

 可以啊。

 

e.Form.RemoveControl("Table1")

e.form.baseform.Controls(e.Form.name).Controls.RemoveByKey("Table1")

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

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

上面代码传出的是不是鼠标点击的列或是单元格的名称？

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

 你加入msgbox弹出一下看很难？

 

不行，除非你开启此表的全局表事件click。不然无法响应点击事件。

谢谢