1. 在操作 AddTabBar 控件的时候,在更新或取消按钮中如何操作,能保证提交后,是返回到本页面,而不是返回到第一个页面。
2. 在操作控制各种类型的输入框:Label与value 之间的距离?
3. 如何控制:Label 本身的宽度和value本身的宽度?
4. 自己先测试了下,不得要领,又来请教!
Dim cxm41 As String = e.Cookies("cookName") '从cookie中获取用户中文姓名
wb.Add Form("page4","form4","basic1.htm")
Dim dr41 As DataRow = DataTables("CompanyName").SQLFind("[_Identify]=" & 1)
If dr41 IsNot Nothing Then
With wb.Add InputGroup("form4","ipg41","公司基本信息")
.Attribute="class='jy_label jy_cell_hd jy_cell'"
With .Add input("c_name","名称:","text")
.Value=dr41("c_name")
' .Attribute="class='jy_label'" 自己做了测试感觉不起作用,再次请教
End With
With .addinput("c_reg","投资:","text")
.Value=dr41("c_reg")
End With
With .addinput("c_tel","电话:","test")
.value=dr41("c_tel")
End With
With .addinput("c_address","地址:","text")
.value=dr41("c_address")
End With
With .addinput("c_upuser","维护:","text")
.value=dr41("c_upuser")
.readonly=True
End With
End With
With wb.Add Button Group("form4","btg41",False)
.Add("btn41", "更新", "submit")
.Add("btn42", "取消", "button","basic1.htm").kind=1
.Add("btn43","返回主页","","default.htm").kind=1 '生成返回原来页面的按钮
End With