0

「ds」という名前のデータセット内にある「dt」という名前のテーブル内の「MobileID」列のすべての行から値を抽出する際に問題が発生しました。

データセットとデータテーブルの作成方法は次のとおりです。

        Public Function GetClientSpecificDevices(ByVal argHost As FOO.BAR.SHOO, ByVal currentClientIDSelection As Integer) As DataSet        
        Return argHost.GetDataSet("SELECT MobileID FROM mobiledevices WHERE ClientID = " & currentClientIDSelection & ";")

        'create dataset to handle tabular data
        Dim ds As New DataSet
        'Ensure every call refreshes dataset rather than appending
        'ds.Tables.Clear()
        Dim dt As New DataTable

        'add table and populate table with data
        ds.Tables.Add(dt)
        dt.Columns.Add("MobileID")
        'return dataset
        Return ds

そしてDataGridの場合

Function GenerateDataRows() As Object
    Dim row As New DataGridViewRow()
    Dim ds As DataSet = GetClientSpecificDevices(_objHost, CInt(comboBox_clients.ValueMember))
    If Not ds Is Nothing AndAlso ds.Tables(0).Rows.Count > 0 Then
        For Each A As DataRow In ds.Tables(0).Rows
            'populate rows
            Dim deviceID As New DataGridViewTextBoxCell
            Dim deviceName As New DataGridViewTextBoxCell
            Dim deviceModel As New DataGridViewTextBoxCell
            Dim devicePhoneNum As New DataGridViewTextBoxCell
        Next
    End If

    Return row
End Function

私はこのようなものを探しています

Dim deviceID As New DataGridViewTextBoxCell
deviceID.Value  = A.MobileID

しかし、それは機能していません。

4

1 に答える 1

0

DataGridViewRowと連携していない別のDataGridViewTextBoxCellを作成しているようです。次のコードを試すことができます

Function GenerateDataRows() As Object
    Dim row As New DataGridViewRow()
    Dim ds As DataSet = GetClientSpecificDevices(_objHost, CInt(comboBox_clients.ValueMember))
    If Not ds Is Nothing AndAlso ds.Tables(0).Rows.Count > 0 Then
        For Each A As DataRow In ds.Tables(0).Rows
            'populate rows
           row.cell(0).value = A.MobileID
        Next
    End If

    Return row
End Function
于 2012-04-19T01:51:51.607 に答える