自定义函数：Dim e As Object = Args(0)
DataTables("lxtj").Save()
DataTables("lxtj").Load
'============================设置编辑面板===============================
Dim tpb_lxtj As WinForm.TopicBar = e.Form.Controls("tpb_lxtj")
With Ctype(tpb_lxtj.BaseControl, C1Command.C1TopicBar)
.Padding = New Windows.Forms.Padding(4)
End With
tpb_lxtj.Animation = False
With tpb_lxtj.Pages
.Add("编辑采购立项统计","编辑采购立项统计").Collapsed=False
.Add("采购立项统计处理","采购立项统计处理").Collapsed=False
End With
With tpb_lxtj.Pages("编辑采购立项统计").Links
.add("首条","首条")
.add("上一条","上一条")
.add("下一条","下一条")
.add("尾条","尾条")
'.add("添加","添加")
'.add("删除","删除")
'.Add("保存","保存")
'.Add("修改","修改")
.Add("查询","查询")
End With
With tpb_lxtj.Pages("采购立项统计处理").Links
'.Add("导入","导入")
.add("导出","导出")
.add("返回","返回")
End With
加好友 
发短信
Post By：2017/5/26 9:58:00 [显示全部帖子]
此主题相关图片如下：统计表.png
