当前效果图:(点击备注可以弹出选择项,当前可以实现单选,求助什么实现多选呢?)
具体代码如下(红色部分如何修正为可以多选呢?多个值选择后要能够达到这个格式:院领导,第一支部,党员)
Dim wb As New weui
Select Case e.Path
Case "addnewtxl.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","addnewtxl.htm")
With wb.AddInputGroup("form1","ipg1","干警信息")
.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("电话","电话","number")
.AddInput("电子邮件","电子邮件","text")
Dim filter As String = "表名 = '干警信息' and 列名 = '备注' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
Dim abc As String=fdr("下拉选项").replace(",", "|")
.AddSelect("备注","备注",abc)
End If
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
End With
e.WriteString(wb.Build)
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
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","addnewtxl.htm")
End With
e.WriteString(wb.Build)
End If
End Select
[此贴子已经被作者于2019/3/17 17:18:19编辑过]