主题：创建了一个副本，提示副本不存在

窗口关闭之后，会自动移除的，不需要卸载。

如果在窗口运行的过程想卸载，可以这样写代码

e.form.RemoveControl("Table1")

DataTables.Unload(e.form.name & "_Table1")

改成

Dim cp As Integer = DataTables(e.form.name & "_table1").compute("count(姓名)"

或者

Dim cp As Integer = e.form.controls("Table1").Table.compute("count(姓名)"

不需要关掉这个表格。当你需要重新生成的时候，你可以用fill

If e.form.controls.contains("Table1") Then '已经存在表控件了

    e.form.controls("table1").table.fill("sql语句", "数据源", true或false)

Else

    原来的代码，如 e.Form.CreateSQLTable

End If

1、你要重新生成，那就用8楼的代码；当然，你用4楼的代码移除也可以；

2、隐藏table，参考

e.form.controls("Table1").visible = false

我这样测试可以，把红色代码删除

If e.form.controls.contains("Table1") Then '已经存在表控件了
    e.form.RemoveControl("Table1")
    'DataTables.Unload(e.form.name & "_Table1")
End If

Dim tb2 = e.Form.CreateSQLTable("Table1", "Select * From {test}", "test")
e.Form.AddControl(tb2)
'e.form.controls("Table1").visible = False

If e.form.controls.contains("Table1") Then '已经存在表控件了
    e.form.RemoveControl("Table1")
    DataTables.Unload(e.form.name & "_Table1")
   
End If
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim tb2 As WinForm.Table

DataTables("表222").dataCols("列表名").RaiseDataColChanged()

不可能，我12楼的代码测试没问题。请认真测试。

datacolchanged事件

If e.DataCol.Name = "品名" Then
    Dim cns() As String = {"一月","二月","三月","四月"}
    Dim cns1 () As String = {  "一月_订单量","二月_订单量","三月_订单量","四月_订单量"}
    Dim cns3 () As String = {  "一月_订购数量","二月_订购数量","三月_订购数量","四月_订购数量" }
    ''   Dim cns2 () As String = {  "一月_业绩","二月_业绩","三月_业绩","四月_业绩","五月_业绩","六月_业绩","七月_业绩","八月_业绩", "九月_业绩", "十月_业绩","十一月_业绩","十二月_业绩" }
    If e.NewValue = Nothing Then
        For Each cn As String In cns1
            e.DataRow(cn) = Nothing
        Next
       
    Else
        Dim frm As WinForm.Form = Forms("窗口1")
        If frm.Opened Then
            Dim filter As String = "(品名= '"  & e.DataRow("品名") & "' or 品名 like '%," & e.DataRow("品名") & "' or 品名 like '%," & e.DataRow("品名") & ",%' or 品名 like '" & e.DataRow("品名") & ",%')"
            For i As Integer = 0 To cns1.Length - 1
                Dim d As Date = new Date(Date.Today.Year, i+1, 1)
                Dim cp As Integer = frm.controls("Table1").Table.compute("count(品名)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
                e.DataRow(cns1(i)) = IIF(cp=0,Nothing,cp)
                ''   Dim c As Double = tb2.Table.DataTable.compute("sum(人均价)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
                ''     e.DataRow(cns2(i)) = IIF(c=0,Nothing,c)
                Dim mj As Double = frm.controls("Table1").Table.compute("sum(数量)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#")
                e.DataRow(cns3(i)) = IIF(mj=0,Nothing,mj)
            Next
        End If
    End If
End If

以下是引用cyrollin在2018/9/19 11:03:00的发言：

此主题相关图片如下：微信图片_20180919110201.png

好的，现在没有错误提示了，但是点击按钮后，下面的表B不显示了，消失了。

把你的Table1控件，修改其属性【名称】，改成Table2即可。