如下所示：
If e.PostValues.count = 0 Then
Dim dr As DataRow = DataTables("item99").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","vimg1.htm?od01=1")
With wb.AddInputGroup("form1","ipg1","刀具图片查阅")
.AddHidenValue("ibh00","000") '一个隐臧列, 主要用于触发是否有输入动作的判断语句
With .Addinput("ibh01","类别","text")
.value=dr("ibh01")
.readonly=True
End With
With .Addinput("imc01","名称","text")
.Value=dr("imc01")
.readonly=True
End With
With .Addinput("igg01","规格","text")
.Value=dr("igg01")
.Readonly=True
End With
With .AddUploader("img01","照片",True)
.AllowDelete = True '允许删除
.AllowAdd=False '关闭上传功能
.Incremental = True '允许 重复选择文件或连续拍照
’-------------这里应该怎么写，我就不懂了，请教专家指点，谢谢！
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.add("btn1","返回","",PageURL).kind=1
End With
End If
e.WriteString(wb.Build) '生成网页
End If
加好友 
发短信
Post By：2017/10/24 15:59:00 [只看该作者]
