资产汇总查询表是用sql拼起来的4张表的一个查询表,现在用 Dim dr1 As DataRow= DataTables("资产汇总查询表").SQLFind("SN = '" & e.GetValues("SN") & "'") 不行吗?
Dim dr1 As DataRow= DataTables("资产汇总查询表").SQLFind("SN = '" & e.GetValues("SN") & "'")
If dr1 IsNot Nothing Then '如果资产管理表中有此资产编号对应的资料
msgbox(dr1("SN"))
wb.AddForm("","form1","PdResult.htm")
With wb.AddInputGroup("form1","ipg1","请核对资料")
.AddInput("sn","SN","text").Value=dr1("SN")
.AddInput("zcgs","资产归属","text").Value=dr1("资产归属")
.AddInput("sblx","设备类型","text").Value=dr1("设备类型")
.AddInput("interIP","内网_IP","text").Value=dr1("内网_IP")
.AddInput("outerIP","外网_IP","text").Value=dr1("外网_IP")
.AddInput("szl","所在楼","text").Value=dr1("所在楼")
.AddInput("szks","所在科室","text").Value=dr1("所在科室")
.AddInput("szfj","所在房间","text").Value=dr1("所在房间")
' .AddInput("pw","密码","password")
End With