专家坐堂-AddStep的应用问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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")