移动端数据查询提示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，好久没做移动端页面了，忘记得差不多了，请教一下我在Zhenweicx页面输入查询类别及查询码，点击查询，没有输入数据点击查询时，没有显示提示信息是哪儿不对呢？

js函数valid1代码如下：

function valid1(){

var v1 = document.getElementById("cxlb").value;

var v2 = document.getElementById("cxm").value;

if (v1 && v2){return true}

show("toptip1",2000);

return false;

}

Zhenweicx页面代码如下：

Dim e As Object = args(0)

If e.PostValues.Count = 0 Then

Dim wb As New weui

wb.AddTopTips("", "toptip1", "查询类别,查询码均不能为空!")

wb.AddForm("", "form1", "Zhenweicx_Filter.htm").Attribute = "on submit='return valid1()'" '调用valid1函数

With wb.AddInputGroup("form1", "ipg1", "数据查询") 'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID. Text 可选参数,用于指定分组标题.

.AddSelect("cxlb", "查询类别", "介绍信|授权委托书")

.AddInput("cxm", "查&ensp;询&ensp;码", "text").Placeholder = "请输入查询码" '增加输入框,1表示显示在中间 '增加输入框,1表示显示在中间)

End With

wb.AppendHTML("<script src='./lib/valid1.js'></script>") '引入valid1脚本文件

wb.InsertHTML("<div style='height:50px'></div>")

wb.AddPage("form1", "page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'"

With wb.AddButtonGroup("page1", "btg1", False)

.Add("btn1", "首页", "", "default.htm")

.Add("btn2", "查询", "submit")

End With

e.WriteString(wb.Build)

Else

Dim sb As New StringBuilder

sb.AppendLine("<meta name='viewport' c>")

For Each key As String In e.PostValues.Keys

sb.AppendLine(key & ":" & e.PostValues(key) & "</br>")

e.WriteString(sb.ToString)

End If

[此贴子已经被作者于2023/2/3 13:58:27编辑过]

谷歌浏览器里面调试器测试不行呢，没输入数据就直接跳转到新网页了。

Zhenweicx_filter页面代码如下：

Dim e As Object = args(0)

Dim wb As New weui

wb.AddForm("", "form1", "Zhenweicx_filter.htm")

If e.PostValues("cxlb") = "介绍信" Then

Dim dr As DataRow = DataTables("介绍信管理").SQLFind("查询码= '" & e.PostValues("cxm") & "'")

If dr IsNot Nothing Then

wb.AddPageTitle("form1", dr("查询码"), "介绍信信息")

wb.InsertHTML("<style>.fox_page_header{background-color: DarkGray;}</style>") '设置页面颜色

wb.InsertHTML("<style>.fox_page_title{color:red;font-size:15px;font-weight:bold;line-height:0.5}</style>") '设置项目信息化管理系统字体颜色,字体大小,加粗,行距black

With wb.AddInputGroup("form1", "ipg1", "介绍信信息")

With .AddInput("介绍信编号", "编&emsp;&emsp;号", "text")

.Value = dr("介绍信编号")

.Readonly = True

End With

With .AddInput("所属机构", "所属机构", "text")

.Value = dr("所属机构")

.Readonly = True

End With

...........

With .AddInput("有效期", "有效期", "text")

.Value = dr("有效期")

.Readonly = True

End With

wb.InsertHTML("<div style='height:50px'></div>")

wb.AddPage("form1", "page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'"

With wb.AddButtonGroup("page1", "btg1", False)

.Add("btn1", "首页", "", "default.htm")

.Add("btn2", "返回", "", "Zhenweicx.htm")

End With

e.WriteString(wb.Build)

Else

With wb.AddMsgPage("", "msgpage", "查询完成", "没有查询到相关数据!")

.icon = "info" '改变图标"success","info","warn",对应的图标分别是

.AddButton("btn1", "返回").Attribute = ""

End With

e.WriteString(wb.Build)

Return Nothing '必须返回

End If

[此贴子已经被作者于2023/2/3 14:39:45编辑过]

测试项目

admin

123456

工作台 - 真伪查询

倒数第7、8两个内部函数

[此贴子已经被作者于2023/2/3 15:49:46编辑过]

js函数名称都是一致的啊

还请老师核对一下，我反复核对名称是一样的，有数据也能查出来，但就是为空的时候不提示

主题：移动端数据查询提示问题