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编辑过]
加好友 
发短信
Post By：2018/6/28 2:07:00 [显示全部帖子]
