Protected Sub btnsearch_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnsearch.Click Dim code As String = txtCode.Text Dim objs As New SearchPerBySchool Dim year As String = ddyear.SelectedItem.Text If code.Length <> 9 Or code = "" Or code.Substring(0, 3) <> "500" Then MsgBox("Please enter a valid EmisCode") ElseIf objs.Search_School_performance(code, year).Rows.Count > 0 Then 'Response.Redirect("ViewSchoolPer.aspx?EmisCode=" & txtCode.Text & "&ddyear=" & ddyear.SelectedItem.Text) Chart1.DataSource = objs.Search_School_performance(code, year) 'Chart1.Series("grade").XValueMember = "grade" 'Chart1.Series("TotalPass").YValueMembers = "TotalPass" Chart1.DataBind() End If 'Response.Redirect("ViewSchoolPer.aspx") End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)