Dim cmd As new SQL Command
cmd.Conne cti
cmd.Comm andText = "Sel ect * From [**] Where 1=2"
Dim dtb As DataTable = cmd.Execu teReader(True)
Dim dr As DataRow = dtb.SQLAddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm)
dr(nm) = e.PostValues(nm).trim()
Else
dr(nm) = Nothing
End If
Next
dr("编号") =Functions.Execute("SerialNumber",e,"往来单位编号")
If dr("编号") >"" Then
dr.save()
With wb.AddMsgPage("","msgpage","添加成功", "") '生成成功提示页
.AddButton("btn1","继续添加","AddCustomer.htm")
.AddButton("btn2","查看记录","Customerlist.htm")
.AddButton("btn3","退出","index.htm")
End With '返回增加成功消息
Else
End If
e.WriteString(wb.Build) '生成网页
此主题相关图片如下：微信截图_20220328152954.png
加好友 
发短信
Post By：2022/3/28 15:31:00 [只看该作者]
