- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动查询问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120452)
-- 发布时间：2018/6/16 2:08:00
-- 移动查询问题
Case "cxsx"
Dim dh1 As String = e.Values("dh1")
Dim ft As String = "用户电话=\'" & dh & "\'"
Tables("终端用户").Filter = ft
wb.AddTable("","t1").CreateFromTable(Tables("终端用户"),True,"日期","报备人","楼盘","进度")
e.WriteString(wb.Build)
End Select
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Select Case e.Path
Case "bbcx.htm"
\'------------------------------------------------------------------------------------------------------------------------------
wb.AddForm("","form1","cxsx")
With wb.AddInputGroup("form1","i1","客户查询")
.Addinput("dh","用户电话","text")
End With
wb.AddButtonGroup("form1","b1").add("bth1","执行查询")
e.WriteString(wb.Build)
[此贴子已经被作者于2018/6/16 2:17:45编辑过]
-- 发布时间：2018/6/16 9:03:00
--
Dim dh1 As String = e.Values("dh1")
Dim ft As String = "用户电话=\'" & dh1 & "\'"
-- 发布时间：2018/6/16 9:31:00
--
还是不行 老师看看
[此贴子已经被作者于2018/6/16 9:39:08编辑过]
-- 发布时间：2018/6/16 9:59:00
--
Case "cxsx"
Dim dh1 As String = e.Values("dh1")
Dim ft As String = "运输人员=\'" & dh1 & "\'"
wb.AddTable("","t1").CreateFromDataTable(DataTables("一类疫苗入库单"),True,ft,"","冷藏方式","供货单位","运输车牌","采购员")
e.WriteString(wb.Build)
CreateFromDataTable
CreateFromDataTable用于根据Foxtable的DataTable自动生成网页，语法：
CreateFromDataTable(DataTable)
CreateFromDataTable(DataTable, RowNum)
CreateFromDataTable(DataTable, RowNum, Filter)
CreateFromDataTable(DataTable, RowNum, Filter)
CreateFromDataTable(DataTable, RowNum, Filter, Sort)
CreateFromDataTable(DataTable, RowNum, Filter, Sort, DataCols)
CreateFromDataTable(DataTable, RowNum, Filter, Sort, DataCol1, DataCol2, DataCol3...)
-- 发布时间：2018/6/16 11:51:00
--
Case "bbcx.htm"
wb.AddForm("","form1","cxsx")
With wb.AddInputGroup("form1","i1","客户查询")
\'.Addinput("lp","楼盘","text")
.Addinput("dh1","用户电话","number")
End With
wb.AddButtonGroup("form1","b1").add("bth1","执行查询")
e.WriteString(wb.Build)
Case "cxsx"
Dim dh1 As String = e.Values("dh1")
Dim ft As String = "用户电话=\'" & dh1 & "\'"
wb.AddTable("","t1").CreateFromDataTable(DataTables("终端用户"),True,ft,"","日期","报备人","楼盘","进度")
e.WriteString(wb.Build)
还是不行 不知道哪里出了错误
[此贴子已经被作者于2018/6/16 11:51:35编辑过]
-- 发布时间：2018/6/16 12:01:00
--
检查HttpRequest，
e.path = cxsx 时是否能够进入这个函数
-- 发布时间：2018/6/16 12:19:00
--
http://www.icwd.top/cxsx
正常进入 也不会报错
[此贴子已经被作者于2018/6/16 12:19:46编辑过]
-- 发布时间：2018/6/16 14:23:00
--
贴出HttpRequest完整代码看看