62,046
社区成员
发帖
与我相关
我的任务
分享
Private Function get_sql() As String
Dim sSELECTSQL As String
If Me.TextBox1.Text <> "" Then
sSELECTSQL = "SELECT [DialNumber] FROM [Optlist] WHERE ([DialNumber] LIKE '%" + Me.TextBox1.Text + "%')"
Else
sSELECTSQL = "SELECT [DialNumber] from [OptList]"
End If
Return sSELECTSQL
End Function
Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
Dim sSELECTSQL As String = get_sql()
Response.Redirect("exportexxel2.aspx?sql=" & sSELECTSQL & "&listname=Optlist")
End Sub