If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End Ifdim t as table = e.form.controls("table2").table
select casee.Table.Current("合同类型")
case "劳务分包、专业分包"
t.SetColVisibleWidth("项目名称|-1|项目特征|-1|........")
case "机械租赁"
t.SetColVisibleWidth("项目名称|-1|规格型号|-1|........")
case "xxx"
t.SetColVisibleWidth("xxxx|........")
……