Case "gzbcx.htm"
DataTables("工资表查询").DeleteFor("")
.....
Case "default.htm" '首页
wb.AddPageTitle("","pageheader","工资查询系统","软件开发")
wb.AddForm("","form1","default.htm")
With wb.AddGrid("","g1")
.Add("c1","工资表查询", "./images/105.png","gzbcx.htm")
.Add("c2","客户管理", "./images/120.png", "http://www.foxtable.com")
.Add("c3","销售统计", "./images/121.png").Attribute = ""
.Add("c4","修改密码", "./images/130.png","Update.htm") '.Attribute = ""
.Add("c5","Progress", "./images/123.png", "http://www.foxtable.com")
End With
e.WriteString(wb.Build)
[此贴子已经被作者于2017/5/5 11:19:35编辑过]