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
加好友 
发短信
Post By：2020/4/23 13:49:00 [只看该作者]
此主题相关图片如下：156.png