Vb.net 如何将列变量分配给winform textbox

有以下查询

 <WebMethod(Description:="Retrieve members of a Client List"), SoapHeader("MessageSoapHeader", direction:=SoapHeaderDirection.In)> _
    Public Function GetClientListMembers() As DataSet
        Dim RS As SqlDataReader
        RS = objApp.ConnectUser(MessageSoapHeader.UID, MessageSoapHeader.PWD, MessageSoapHeader.Campaign, MessageSoapHeader.Keyword, LocalCommon.apSOAPAdvanced)
        If objApp.ClassErrorsCount > 0 Then
            Dim NX As New Exception
            LLIB.ThrowSOAPException(objApp.Errors(1).Number, NX, objApp.DB, objApp.Errors(1).ErrorType, objApp.Errors(1).Description)
            GetClientListMembers = New DataSet
            Exit Function
        End If

        Dim Client As New SqlCommand("optinPaging", objApp.DB)
        Client.CommandType = CommandType.StoredProcedure
        AddSQLCmdParm(Client, "@Shortcode", SqlDbType.Int, "", objApp.ShortCode, 0)
        AddSQLCmdParm(Client, "@Keyword", SqlDbType.VarChar, "", objApp.Keyword, 0)

        GetClientListMembers = LLIB.GetDataSet(Client)

        LLIB.RecordRowTransfer(GetClientListMembers.Tables(0).Rows.Count, LLIB.RowTransferDirection.ToClient, objApp)
        LLIB.FunctionCount(objApp, "GetClientListMembers") 'This must be placed after the close of RS
        GetClientListMembers.Tables(0).TableName = "Cell Numbers"
        LLIB.RecordRowTransfer(GetClientListMembers.Tables(0).Rows.Count, LLIB.RowTransferDirection.ToClient, objApp)
        'Now get the email stuff
        LLIB.AddDataTable(GetClientListMembers, "Email Addresses", "SELECT EmailAddress,Keyword, dbo.fn_ToUTC(ActualOptInDate) AS ActualOptInDate FROM EmailOptins WHERE ShortCode='" & objApp.ShortCode & "' AND Keyword='" & objApp.Keyword & "' AND OptInState=2 ORDER BY EmailAddress", objApp)
        If GetClientListMembers.Tables.Count > 1 Then LLIB.RecordRowTransfer(GetClientListMembers.Tables(1).Rows.Count, LLIB.RowTransferDirection.ToClient, objApp)
        objApp.DB.Close()
    End Function

_
公共函数GetClientListMembers（）作为数据集
Dim RS作为SqlDataReader
RS=objApp.ConnectUser（MessageSoapHeader.UID、MessageSoapHeader.PWD、MessageSoapHeader.Campaign、MessageSoapHeader.Keyword、LocalCommon.apSOAPAdvanced）
如果objApp.ClassErrorsCount>0，则
Dim NX作为新异常
LLIB.ThrowSOAPException（objApp.Errors（1）.编号，NX，objApp.DB，objApp.Errors（1）.错误类型，objApp.Errors（1）.说明）
GetClientListMembers=新数据集
退出功能
如果结束
Dim客户端作为新的SqlCommand（“optinPaging”，objApp.DB）
Client.CommandType=CommandType.storedProcess
AddSQLCmdParm（客户端，“@Shortcode”，SqlDbType.Int，”，objApp.Shortcode，0）
AddSQLCmdParm（客户端，“@Keyword”，SqlDbType.VarChar，”，objApp.Keyword，0）
GetClientListMembers=LLIB.GetDataSet（客户端）
LLIB.RecordRowTransfer（GetClientListMembers.Tables（0）.Rows.Count，LLIB.RowTransferDirection.ToClient，objApp）
LLIB.FunctionCount（objApp，“GetClientListMembers”）'必须将其放置在RS关闭之后
GetClientListMembers.Tables（0）.TableName=“单元格编号”
LLIB.RecordRowTransfer（GetClientListMembers.Tables（0）.Rows.Count，LLIB.RowTransferDirection.ToClient，objApp）
“现在去拿邮件吧
LLIB.AddDataTable（GetClientListMembers，“电子邮件地址”，“从EmailOptins中选择EmailAddress，Keyword，dbo.fn_ToUTC（ActualOptInDate）作为ActualOptInDate，其中ShortCode='”&objApp.ShortCode&“，”和Keyword='”&objApp.Keyword&“，”和OptInState=2按电子邮件地址排序”，objApp）
如果GetClientListMembers.Tables.Count>1，则为LLIB.RecordRowTransfer（GetClientListMembers.Tables（1）.Rows.Count，LLIB.RowTransferDirection.ToClient，objApp）
objApp.DB.Close（）
端函数

它返回的列之一是

totalPages

。此值对于所有行都相同

我需要在表单上的

文本框中显示此信息。文本框的名称为“pageCount”

我不知道如何进行
 在你的客户端应用程序中，你可能有类似的东西

ReturnedDS = AdvServer.GetClientListMembers()

假设数据库[存储过程]调用只返回一个表

dim pgCount as integer = 0 'default value
' Check if your table actually has rows
If ReturnedDS.Tables(0).Rows.Count > 0 Then
    ' pick first row and specific column
    pgCount = CInt(myDataset.Tables(0).Rows(0)("totalPages"))

End If
' set text box
pageCount.Text = pgCount.ToString()

查询本身一次返回100行。totalPages的值始终相同。这会有所不同吗？@Portlight不，不会。如果没有数据，则不会得到任何行，因此
0
pages。否则，每批或每行中的页数都是相同的。我添加了您发布的代码，并收到以下错误“System.NullReferenceException:Object variable or With block variable not set.”我将它们添加到相同的代码块中。我们可以去聊天吗？评论限制了我的发布。