- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]web 帮助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149106)
-- 发布时间：2020/4/23 13:49:00
-- [求助]web 帮助
此主题相关图片如下：156.png
求教下，入图，有内容的都是从数据库里提取的，画圈的是希望手机上填写好之后，发给后台数据库保存的，不知道需要看帮助的哪些内容-- 发布时间：2020/4/23 13:55:00
--
看帮助要看完整：http://www.foxtable.com/mobilehelp/topics/0059.htm，else后面部分代码就是保存用的
Else
Dim nms() As String = {"姓名","年龄","日期","级别"} \'不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" \'改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return \'必须返回
End If
Next
nms = New String() {"姓名","年龄","日期","级别","停权","学历"} \'重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("员工").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
\'以下代码处理品牌复选列表项
Dim pp As String
nms = New String() {"苹果","华为","三星"} \'将nms重新定义为品牌数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) AndAlso e.PostValues(nm).Trim() = "on" Then \'不能省略Trim
pp = pp & nm & ","
End If
Next
If pp > "" Then
dr("偏好") = pp.Trim(",")
End If
\'保存并生成增加成功提示页面
dr.save()
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
.AddButton("btn1","继续增加","addnew.htm")
End With
e.WriteString(wb.Build)
End If
-- 发布时间：2020/4/23 15:46:00
--
老师，这个是增加新的行，我想的是在原有的行的基础上修改要怎么弄啊
-- 发布时间：2020/4/23 15:53:00
--
Dim dr As DataRow = DataTables("员工").AddNew()
改为查询即可，如：
Dim dr As DataRow = DataTables("员工").find("姓名=\'" & e.PostValues("姓名") & "\'")