- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 想点击"盘点保存"按钮时往表里保存数据，但不知道怎么写。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129506)
-- 发布时间：2018/12/29 20:56:00
-- 想点击"盘点保存"按钮时往表里保存数据，但不知道怎么写。
此主题相关图片如下：1.png
此页面的函数如下，请问要怎么改？
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
\'wb.InsertHTML("<div data-theme=\'g\' data-role=\'page\' data-position=\'fixed\'>") \'页内容样式
\'msgbox(e.PostValues("AssetNumber"))
If e.PostValues.ContainsKey("AssetNumber") Then
msgbox("老样子")
Dim dr1 As DataRow= DataTables("资产管理表").SQLFind("IP地址 = \'" & e.PostValues("AssetNumber") & "\'")
If dr1 IsNot Nothing Then
wb.AddForm("","form1","CheckPd.htm")
With wb.AddInputGroup("form1","ipg1","请核对资料")
.AddInput("zcmc","资产名称","text").Value=dr1("资产名称")
.AddInput("zcgs","资产归属","text").Value=dr1("资产归属")
.AddInput("cgxm","采购项目","text").Value=dr1("采购项目")
\' .AddInput("pw","密码","password")
End With
With wb.AddButtonGroup("","btg1", False) \'水平排列的两个按钮 分组号为btg2
.Add("btn6", "盘点保存","submit","./CheckPd.htm").Kind= 1
.Add("btn7", "放弃保存","button","./pdScan.htm").Kind =2
End With
e.WriteString(wb.Build)
Else
e.WriteString("不存在数据!")
End If
Else
msgbox("有数据保存")
Dim dr2 As DataRow= DataTables("盘点记录").AddNew() \'用table新增比datatable好,因为如果有关联表,则关联内容会自动填入
dr2("资产编号")=e.PostValues("zcmc")
dr2("盘点时间")=Date.Now
dr2("盘点人")= "王昆"
End If
[此贴子已经被作者于2018/12/29 20:59:25编辑过]
-- 发布时间：2018/12/30 9:57:00
--
点击保存的时候，是否跳转到这里执行代码了？
msgbox("有数据保存")
Dim dr2 As DataRow= DataTables("盘点记录").AddNew() \'用table新增比datatable好,因为如果有关联表,则关联内容会自动填入
dr2("资产编号")=e.PostValues("zcmc")
dr2("盘点时间")=Date.Now
dr2("盘点人")= "王昆"
-- 发布时间：2018/12/31 10:21:00
--
没有，这个网页是上一个网页查询后展示结果的网页，让用户核对后，如果结果正确则按 盘点保存， 如果结果不正确，则按 放弃保存， 都要操作数据库，不知道该怎么写代码
-- 发布时间：2019/1/2 11:52:00
--
点击保存的时候，跳转到【CheckPd.htm】这个网页了，请在那里执行保存代码。