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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  JS传递值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108155)

--  作者：lshshlxsh
--  发布时间：2017/10/17 14:09:00
--  JS传递值

Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Select Case e.Path
Case "addnew.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","动态列表")
.AddInput("单位","单位","text").Attribute= """
wb.InsertHTML("<div id=\'p1\'></div>") \'插入一个div,用于显示服务器返回的数据
.AddInput("电话","电话","text")
End With
e.WriteString(wb.Build) \'生成网页
Case "getBrands.htm"
If e.PostValues("单位") >"" Then
Dim sb As New StringBuilder
Dim nms() As String = {"单位","电话"}
sb.AppendLine("<Table style=\'width:100%;\' >")
Dim drs As List(of DataRow) = DataTables("供应商表").SQLSelect(" 单位 like \'%" & e.PostValues("单位") & "%\' ")
For Each dr As DataRow In drs
sb.Append("<tr style=\'height:30px; style=\'border-bottom:1px solid #F5F5F6;width:80%;\' >")
sb.Append("<td style=\'width:80%;text-indent:4em;color:#7777CC;font-size:20px\' 电话\',\'addnew.htm\',\'单位\',False)\' >" & dr("单位") & "|" & dr("电话") & "</td>")
sb.AppendLine("</tr></br>")
Next
sb.AppendLine("</Table></br> ")
e.WriteString(sb.ToString)
End If
End Select

我在单位输入中包含中的单位出来了请问一下我要实现点击中国奇瑞2 怎么把 2 返回到号码控件
此主题相关图片如下：222.png

[此贴子已经被作者于2017/10/17 14:11:19编辑过]

--  作者：有点甜
--  发布时间：2017/10/17 14:25:00
--

sb.Append("<td style=\'width:80%;text-indent:4em;color:#7777CC;font-size:20px\' onclick=""document.getElementById(\'电话\').value=\'" & dr("电话") & "\'"" >" & dr("单位") & "|" & dr("电话") & "</td>")

--  作者：lshshlxsh
--  发布时间：2017/10/17 14:43:00
--
谢谢老师

Case "getBrands.htm"
\' If e.PostValues("单位") >"" Then
Dim sb As New StringBuilder
Dim nms() As String = {"单位","电话"}
sb.AppendLine("<Table style=\'width:100%;\' >")
\'\'\' Dim drs As List(of DataRow) = DataTables("供应商表").SQLSelect(" ")
Dim drs As List(of DataRow) = DataTables("供应商表").SQLSelect("")
For Each dr As DataRow In drs
sb.Append("<tr style=\'height:30px; style=\'border-bottom:1px solid #F5F5F6;width:80%;\' >")

\'\'\'sb.Append("<td style=\'width:80%;color:#7777CC;font-size:20px\' >" & dr("单位") & "|" & dr("电话") & "</td>")
sb.Append("<td style=\'width:80%;text-indent:4em;color:#7777CC;font-size:20px\' & dr("电话") & "\'"" >" & dr("单位") & "|" & dr("电话") & "</td>")
sb.AppendLine("</tr></br>")
Next
sb.AppendLine("</Table></br> ")
e.WriteString(sb.ToString)

我把这句拷贝进去点击无效如果我是直接打开 getBrands.htm 这个页面用 sb.Append("<td style=\'width:80%;color:#7777CC;font-size:20px\' >" & dr("单位") & "|" & dr("电话") & "</td>") 这个是可以弹出来的但是从addnew 页面进去选择点击无法弹出

--  作者：有点甜
--  发布时间：2017/10/17 15:17:00
--

我测试没问题，你js的代码怎么写？

var result=submitAjaxFileds("getBrands.htm","","单位","电话",false);
document.getElementById("p1").innerHTML=result;

--  作者：lshshlxsh
--  发布时间：2017/10/17 15:29:00
--

OK 已经可以了是js 问题谢谢老师

[此贴子已经被作者于2017/10/17 15:46:22编辑过]

--  作者：有点甜
--  发布时间：2017/10/17 15:56:00
--

Dim fl As String = ProjectPath & "Attachments\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
Select Case e.Path
    Case "addnew.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","动态列表")
            .AddInput("单位","单位","text").Attribute= "onkeyup=""var result=submitAjaxFileds(\'getBrands.htm\',\'\',\'单位\',\'电话\',false); document.getElementById(\'p1\').innerHTML=result;"""
            wb.InsertHTML("<div id=\'p1\'></div>") \'插入一个div,用于显示服务器返回的数据
            .AddInput("电话","电话","text")
        End With
        e.WriteString(wb.Build) \'生成网页
    Case "getBrands.htm"

        If e.PostValues("单位") >"" Then
            Dim sb As New StringBuilder
            Dim nms() As String = {"单位","电话"}
            sb.AppendLine("<Table style=\'width:100%;\' >")
            Dim drs As List(of DataRow) = DataTables("供应商表").SQLSelect(" 单位 like \'%" & e.PostValues("单位") & "%\'   ")
            For Each dr As DataRow In drs
                sb.Append("<tr style=\'height:30px; style=\'border-bottom:1px solid #F5F5F6;width:80%;\' >")
                sb.Append("<td style=\'width:80%;text-indent:4em;color:#7777CC;font-size:20px\' onclick=""document.getElementById(\'电话\').value=\'" & dr("电话") & "\'"" >" & dr("单位") & "|" & dr("电话") & "</td>")

                sb.AppendLine("</tr></br>")
            Next
            sb.AppendLine("</Table></br> ")
            e.WriteString(sb.ToString)
        End If
End Select

--  作者：有点甜
--  发布时间：2017/10/17 16:00:00
--

模糊搜索还可以参考这个例子

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102354&skin=0

--  作者：lshshlxsh
--  发布时间：2017/10/17 16:05:00
--

谢谢老师

[此贴子已经被作者于2017/10/17 16:36:48编辑过]