取AddInput值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim str As String = "list.htm&pv=" & e.GetValues("pv")

.AddButton("page4","返回","./images/取消.png", str)

返回至下面显示空白

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/>")

End With

主题：取AddInput值