求解！ vb.net databinding 类错误处理

SLADFJKLSA 2011-08-20 02:07:50



'vb.net

'databinding 类

      '根据指定表、指定列和指定查询条件得出结果填充textbox

        Public Shared Sub filltextbox2(ByRef txt As TextBox, ByVal tableName As String, _

                                       ByVal tableName2 As String, ByVal Column As String, _

                                       ByVal Column2 As String, ByVal connStr As String, ByVal _

                                       field As String, ByVal value As String)



            '创建DBDataTable对象

            Dim dt As DBDataTable = New DBDataTable(connStr)

            '设置SQL语句

’sql语句类型为嵌套查询

'select s_id from tb1 where id in (select id from tb2 _ where x_id='12345')这种类型的语句。

            Dim SQLStr As String = "Select " & Column & " from " & tableName & _

                " WHERE " & Column2 & " in (select " & Column2 & " from " & _

                tableName2 & " where " & field & "=" & value & ")"

            '调用DBDataTable的CreateDataTable函数，得到DataTable表

            Dim table As DataTable = dt.CreateDataTable(SQLStr, tableName)

            '显示查询得到的首行（一般也只有一行）指定列的值

            txt.Text = ""

            Try

                txt.Text = table.Rows(0).Item(Column).ToString().Trim()

            Catch ex As IndexOutOfRangeException

                leainfo.Close()

                MsgBox(ex.Message)





            End Try

查询经常会遇到返回值为0的情况；
我也已经用了Try catch保护了，但是出错后，程序会连着跳出好几个错误框需要点击。

查询按钮的代码是一路
databinding.filltextbox(xx,x,x,x)这样写下去的，并未写其他保护性代码。所以出错跳出好几个错误框是否跟查询按钮的代码有关？还是仅仅跟这个类的错误处理有关？
请老师们指点下，谢谢！

...全文