我需要帮助在演示文稿中使用的IDataReader层的方法调用和显示DridView

Dim objs As New Emis_Business_Layer.Districts

 

      Dim District As String

      Dim Ownership As String = DropDownList5.SelectedItem.Text

      Dim emiscode As String = txtemiscode.Text

 



      If District = objs._Get_General_Info_All(DropDownList_District.SelectedItem.Text, DropDownList5.SelectedItem.Text, txtemiscode.Text).Count > Then

 

          GridView1.DataSource = objs.Get_School_Info(DropDownList_District.SelectedItem.Text)

          GridView1.DataBind()

 

          Exit Sub

 

      End If

 

      If objs._Get_General_Info(DropDownList_District.SelectedItem.Text, Ownership).Count > 0 Then

          GridView1.DataSource = objs.Get_School_Info(DropDownList_District.SelectedItem.Text)

          GridView1.DataBind()

          Exit Sub

 

      End If

 

      If objs.Get_School_Emiscode(emiscode).Count > 0 Then

 

          GridView1.DataSource = objs.Get_School_Info(DropDownList_District.SelectedItem.Text)

          GridView1.DataBind()

          Exit Sub

      Else

          lblerror.Text = "Information those not match"

 

      End If