以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移动模糊查询电话拨打 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121039) |
-- 作者:yifan3429 -- 发布时间:2018/6/28 2:07:00 -- 移动模糊查询电话拨打 Case "sjcx.htm" If e.PostValues.Count = 0 Then wb.AddForm("","form1","sjcx.htm") With wb.AddInputGroup("form1","i1","设计师查询") .Addinput("dh1","姓名","text") 希望可以模糊查询 End With wb.AddButtonGroup("form1","b1").add("bth1","执行查询") e.WriteString(wb.Build) Else Dim dh1 As String = e.PostValues("dh1") Dim ft As String = "姓名=\'" & dh1 & "\'" wb.AddTable("","t1").CreateFromDataTable(DataTables("设计师档案"),True,ft,"","姓名","工作室名称","城市","维护人","职称","手机号") 希望单击可以直接拨打 e.WriteString(wb.Build) End If
[此贴子已经被作者于2018/6/28 2:10:44编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/6/28 8:59:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=114962&skin=0
|
-- 作者:yifan3429 -- 发布时间:2018/6/29 0:59:00 -- .Addinput("dh1","姓名","text") 希望可以模糊查询 |
-- 作者:有点甜 -- 发布时间:2018/6/29 9:44:00 -- Dim ft As String = "姓名=\'" & dh1 & "\'"
改成
Dim ft As String = "姓名 like \'%" & dh1 & "%\'" |
-- 作者:yifan3429 -- 发布时间:2018/6/29 9:57:00 -- End With wb.AddButtonGroup("form1","b1").add("bth1","执行查询") e.WriteString(wb.Build) Else Dim dh1 As String = e.PostValues("dh1") Dim ft As String = "姓名 like \'%" & dh1 & "%\'" wb.AddTable("","t1").CreateFromDataTable(DataTables("设计师档案"),True,ft,"","姓名","工作室名称","城市","维护人","职称","<a href=\'tel:" & "手机号" & "\'>" & "手机号" & "</a>") e.WriteString(wb.Build) End If End Select 代码报错呢
|
-- 作者:有点甜 -- 发布时间:2018/6/29 10:06:00 -- 不能用CreateFromDataTable,要一行一行添加数据
http://www.foxtable.com/mobilehelp/scr/0072.htm
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=114962&skin=0 |