窗体中一个button的Click事件代码如下：
Dim dtb As new DataTableBuilder("tb")
With dtb
.AddDef("月",Gettype(String),10)
.AddDef("用电点1",Gettype(String),50)
.AddDef("用电点2",Gettype(String),30)
.AddDef("均值",Gettype(Integer))
.AddDef("差值",Gettype(Integer))
.Build
End With
Tables("tbfxz_tbltl").DataSource = dtb.BuildDataSource
For i As Integer = 1 To 30
Dim dr As DataRow = DataTables("tbfxz_tbltl").AddNew
dr("月") = cstr(i)
dr("用电点1") = cstr(i)
dr("用电点2") = cstr(i)
dr("均值") = i
dr("差值") = i
Next
点击button后， 直接调用窗体的BeforeClose事件，窗体关闭退出。将这段代码复制到其他正常执行的代码后，执行时也是直接调用窗体的BeforeClose事件，窗体关闭退出。
加好友 
发短信
Post By：2016/11/7 17:01:00 [显示全部帖子]
