Dim cmd As new SQLCommand
cmd.C
cmd.CommandText= "s elect * From 设备资料表 where 设备编号='"& bh &"'"
Dim dt As DataTable= cmd.ExecuteReader
Dim ddrr As DataRow= dt.DataRows(0)
'With wb.AddTable("form1","Table1")
'.CreateFromDataTable(cmd.ExecuteReader)
'End With
With wb.AddPreview("","pv1","设备类型",ddrr("设备类型"))
.AddItem("设备编号",ddrr("设备编号"))
.AddItem("设备责任人",ddrr("设备责任人"))
.AddItem("使用部门", ddrr("使用部门"))
.AddItem("设备地址",ddrr("设备地址"))
.AddItem("设备物理地址",ddrr("设备物理地址"))
.AddItem("设备网关",ddrr("设备网关"))
'作", "", 1, "")
End With
'===================
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
'wb.AddToast("","t1", "已发送提醒",0)
Dim ddt As DataTable = cmd.ExecuteReader
Dim ddr As DataRow= ddt.DataRows(0)
'调取维修记录
Dim drs As List(of DataRow)
drs=DataTables("日常维护").SQLSelect("设备编号='"& bh &"'","","_identify ")
If drs.count>=1 Then
With ExWeUI.WebUI.AddStepGroup("","step1","维护信息")
.AddStep("st01","1","建档" & ddr("维护日期")).Description = "已完成"
' Dim i As Integer= 2
For Each r1 As DataRow In drs
With .AddStep("st"& r1("step")+1,r1("step")+1,r1("维护日期") )
.IsCurrent = True
'.Description = r1("维护日期") '"详细情况 ' <a href = ""javascript:void(0)"" ">点此提醒</a>"
' .Description = " <a href = ""javascript:void(0)"" &r1("step")&"')"">"& r1("维护内容") &"</a>"
.Description = " <a href = ""javascript:void(0)"" ">"& r1("维护内容") &"</a>"
End With
Next
wb.AppendHTML("<script src='./lib/xiangxi.js'></script>") '引入脚本文件
wb.InsertHTML(.BuildHtml)
End With
Else
With ExWeUI.WebUI.AddStepGroup("","step1","维护信息")
.AddStep("st01","1","建档" & ddr("维护日期")).Description = "已完成"
Dim i As Integer= 2
With .AddStep("st02",2,"维护信息" )
.IsCurrent = True
.Description = "尚未有维护记录" '&" <a href = ""javascript:void(0)"" ">点此提醒</a>"
.color = ExWeUI.ExWeuiStepColorEnum.wait
End With
wb.InsertHTML(.BuildHtml)
End With
End If
'
'=========
wb.AddForm("","form1","addrz.htm")
With wb.AddInputGroup("form1","cs","本次维护")
With.AddInput("设备编号","设备编号","text")
.value=bh
.readonly= True
End With
.AddInput("维护内容","维护内容","text")
.AddInput("维护日期","维护日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
End With
'
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= ""
'.Add("btn1", "确定", "submit")
End With
With wb.AddDialog("","dlg1", "提示","内容写入成!") '增加订单成功提示框
'.AddButton("btnYes","确定").Attribute = ""
.AddButton("btnYes","确定",E.Path & "?gs=1&bh="& bh ) '.Attribute = ""
'.AddButton("btnNo","否","http://www.foxtable.com").Kind = 1
End With
With wb.AddDialog("","dlg2", "错误","") '增加订单失败提示框
.AddButton("btnOK","确定")
End With
wb.AppendHTML("<script src='./lib/fanhui.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Case "xiangqing.htm" '----------------------
msgbox("1")
加好友 
发短信
Post By：2021/12/15 14:34:00 [显示全部帖子]
此主题相关图片如下：微信截图_20211216111552.png