Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddForm("","form1","rxslr2.htm") 传递到数据保存页面 参照帮助《一个简单录入界面》
wb.AppendHTML("<style>.mark{background-color:LightCyan; color:Fuchsia;font-Size:100%;}</style>", True) '添加样式
With wb.AddInputGroup("form1","ipg1","每日销售录入")
With .AddInput("销售日期","销售日期:","date")
.value = Date.Today
End With
.AddSelect("展厅","展厅:","A展厅|B展厅|C展厅|D展厅").Attribute= "" '列表选择框值改变后触发统计页stxs.htm显示到下方
With .AddInput("销售金额","销售金额:","number")
End With
End With
With wb.AddInputGroup("form1","ipg3","备注")
.AddTextArea("备注",1).Placeholder = "......"
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定添加", "submit")'.Attribute= "form1','tongji3')'"
End With
wb.AddForm("","form2","stxs.htm") '增加了统计页
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
wb.AppendHTML("<script></script>") '标注红颜色部分的代码怎么写呢?
e.WriteString(wb.Build)
目前效果,选择展厅后下方出现列表,点击“确定添加”按钮会提交数据到保存界面并保存。希望第一次进入主网页(luru.htm)时(不用触发选择按钮)就出现列表
以上问题解决后再追加一个问题:
之前希望是在进入主网页后,插入一个div,通过AddSelect框值的改变传递变量到统计页stxs.htm,同时按“确定添加”按钮进入到数据保存网页,后来发现Form1只能传递到一个网页,
所以后面用增加一个Form2来做处理,统计页也就暂时委屈不做变量传递而加载全部
咨询:1、如何通过AddSelect的变化同时向两个网页传递变量?
2、试过增加cooke没成功,有没有变化通过AddSelect变化来增加和修改COOKE值
此主题相关图片如下:问题咨询.png