以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想点击"盘点保存"按钮时往表里保存数据,但不知道怎么写。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129506)

--  作者:ycwk
--  发布时间: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("盘点人")= "王昆"

--  作者:ycwk
--  发布时间:2018/12/31 10:21:00
--  
没有,这个网页是上一个网页查询后展示结果的网页,让用户核对后,如果结果正确则按 盘点保存, 如果结果不正确,则按 放弃保存, 都要操作数据库,不知道该怎么写代码
--  作者:有点甜
--  发布时间:2019/1/2 11:52:00
--  

 

点击保存的时候,跳转到【CheckPd.htm】这个网页了,请在那里执行保存代码。