http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080
……
DataTables("起吊").Save()
DataTables("货单").Save() '用SQLAddNew增加的行,必须保存一下,否则会被丢弃.
wb.AddMsgPage("","msgpage","增加成功", " ") '生成成功提示页
e.WriteString(wb.Build)
ElseIf drK("起吊1")= "起吊" Then
Dim sb As New StringBuilder
With wb.AddMsgPage("","msgpage", "有没完成的任务,请等待!完成后再下单" ,"") '生成成功提示页
.Icon = "warn"
End With
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2020/9/28 11:52:00 [显示全部帖子]
