在没有查找到的情况下，怎么跳出一个对话框提示

Question

Imports System.Data.SqlClient
Imports System.Data
Partial Class SearchBookType
    Inherits System.Web.UI.Page
    Public con As New SqlConnection(Convert.ToString(ConfigurationManager.ConnectionStrings("BookShopConnectionString")))    Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Try
            Dim Searchstr As String = txtSearchstr.Text
            Dim s As String = "%" + Trim(Searchstr) + "%"
            Dim sqlstr As String
            sqlstr = "select * from BookType where TypeName like '" & s & "'"
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, con)
            Dim dt As DataSet = New DataSet()
            da.Fill(dt)
            dgBookType.DataSource = dt
            dgBookType.DataBind()
            con.Close()
        Catch ex As Exception
                    End Try    End Sub
End Class

Answer 1

da.Fill(dt)之后加if dt.Table[0].Rows.Count==0 then
    弹出信息
endif

Answer 2

Page.RegisterStartupScript( "alert ",   " <script   language= 'javascript '>   alert( ' ') </script> "); winform 就 Messagebox.show