Case "list.htm"
Dim flt As String
If e.PostValues.ContainsKey("product") Then
flt = "会员电话 = '" & e.PostValues("product") & "'"
End If
.........
wb.AddForm("","form1","list.htm")
With wb.AddInputGroup("form1","ipg1","会员资料")
Dim dt As DataTable = cmd.ExecuteReader
If dt.datarows.count > 0 Then
Dim pr As DataRow = dt.datarows(0)
.AddInput("日期","注册日期","text").Value = pr("日期")
.AddInput("店名","注册店名","text").Value = pr("店名")
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("lsj","电话",0) '增加标签,0显示在左边
.AddLabel("sj",pr("会员电话"),1) '增加输入框,1表示显示在中间
.AddVcodeButton("hym","拨打",2)
.AddVcodeButton("hy","短信",2)
End With
wb.AppendHTML("<script>document.getElementById('hym').href = 'tel:" & pr("会员电话") & "'</script>")
wb.AppendHTML("<script>document.getElementById('hy').href = 'sms:" & pr("会员电话") & "'</script>")
.AddInput("会员姓","姓名","text").Value = pr("会员姓")
.AddInput("会员姓别","姓别","text").Value = pr("会员姓别")
.AddInput("会员生日日期","生日","text").Value = pr("会员生日日期")
.AddInput("会员级别","级别","text").Value = pr("会员级别")
.AddInput("会员生效","生效","text").Value = pr("会员生效")
End If
End With
......
With wb.AddInputGroup("form1","ipg2","销售合计")
Dim dt As DataTable = cmd1.ExecuteReader
For Each r As DataRow In dt.DataRows
With wb.AddPreview("","pv" & r("_Identify")," ","<span style='font-family:宋体;font-size:20px'>" & r("编号")+ "|"+r("对账品名") & "</span>" )
.AddItem("<span style='font-family:宋体;font-size:20px'>" & "数量:" & r("数量") & "</span>","<span style='font-family:宋体;font-size:20px'>" & "金重:" & r("金重") & "</span>")
.AddItem("<span style='font-family:宋体;font-size:20px'>" & "总重量:" & r("总重量") & "</span>","<span style='font-family:宋体;font-size:20px'>" & "标签价格:" & r("标签价格") & "</span>")
.AddItem("<span style='font-family:宋体;font-size:20px'>" & "提成金额:" & r("提成实收金额") & "</span>","<span style='font-family:宋体;font-size:20px'>" & "实收金额:" & r("实收金额") & "</span>")
.Addbutton("查询明细", "test.htm?pv=" & r("编号"), 1)
'.Addbutton("详情", "filter2.htm?id=" & r("_Identify") & "&p=" & r("会员电话"), 1)
'
End With
wb.AppendHTML("<br/>")
Next
End With