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编辑过]
加好友 
发短信
Post By：2017/10/17 14:09:00 [显示全部帖子]
