主题：代码存放的问题

我用以下代码生成的表,表事件代码怎么放?放在何处,是不是放在全局表事件中?

  Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLQuery("Table1", "Select * From {产品}","")
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

我的意思我做一个窗口,窗口上有一个按钮,放入上面的代码.用代码生成一个SQLTABLE,那么这个表的表事件放在哪儿?因为不是预先加载表控件的,所以没有地方可以放表代码.

明白!

但是怎么定位到每张表中呢,原先用FILL加载时,我用变量,如If Vars("窗口1-Table1")="订单明细"Then解决的,这个呢?

      不太懂,我用代码生成两个表,可以在全局表事件中设置表事件代码,但是怎么定位到每一个表事件内?例如:表1有两个代码,我怎么将代码区分到表1中呢?

Dim pg As WinForm.TabPage
Dim T10 As String  = e.Form.Controls("TextBox1").Value
pg = Forms("控制窗口").Controls("TabControl1").TabPages.add("第四主页",T10 & "裁剪数 ×")
Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable("Table9", "Select * From {裁剪数} Where [IO] like '%" & T10 & "%'","跟单系统")
tbl.SetBounds(10, 10, 1000, 400)
e.Form.Controls("TabControl1").TabPages("第四主页").AddControl(tbl)

我想动态加入一个临时列,底下的代码,应该怎么修改?

DataTables("裁剪数").DataCols.Add("TOTAL", GetType(Double), "[尺码1]+[尺码2]+[尺码3]+[尺码4]+[尺码5]+[尺码6]+[尺码7]")

 

Select Case e.Table.Name
    Case "窗口中表名"还是"加载进来的表名"?   我全部试过没有用,而且也跟着你的意思要激活事件的.
        '针对表A的代码
    Case "表B"
        '针对表B的代码
    Case "表C"
        '针对表C的代码
End Select

谢谢,弄好了,不是表名的问题,是开关的问题.

但是发现一个问题,打开表以后,代码不起作用,必须开一下项目属性才起作用.是不是因为表是后生成的原因?怎么解决?

我再看看.怎么弄都达不到我要的效果.