Case "aqsbjcxx.htm"
Dim sbid As String
If e.GetValues.ContainsKey("sbid")
sbid = e.GetValues("sbid")
End If
Dim dr As DataRow = DataTables("灭火器表").Find("编码 ='" & sbid & "'")
wb.AddForm("","formaqsb","aqsbjcxx.htm")'
With wb.AddInputGroup("formaqsb","ipg1","设备信息")
With .AddInput("bianm","编码:","text")
.Readonly = True
.value = dr("编码")
End With
With .AddInput("mingc","名称:","text")
.Readonly = True
.Value = dr("名称")
End With
With .AddInput("xingh","型号:","text")
.Readonly = True
.Value = dr("型号")
End With
With .AddInput("did","地点:","text")
.Readonly = True
.Value = dr("放置地点")
End With
With .AddInput("guanly","管理员:","text")
.Readonly =True
.Value = dr("管理员")
End With
End With
With wb.AddTable("formaqsb","检查信息")
.CreateFromDataTable(DataTables("灭火器检查表"),False,"编号 = '" & sbid & "'","检查日期 desc","检查日期","检查结果","指针图片","检查人")
End With
e.WriteString(wb.Build)
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.8.30.1
错误所在事件：项目,HttpRequest
详细错误信息：
未将对象引用设置到对象的实例。
[此贴子已经被作者于2019/1/16 21:06:05编辑过]
加好友 
发短信
Post By：2019/1/16 21:05:00 [只看该作者]
