0

NETWinForms。

VBコード： 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)       Handles Button1.Click

    Label1.Text = "Beginning"

    Dim a As Integer = 20
    Dim b As Integer = 3
    Do Until b > a

        a & " " & b

        a = a - 2
        b = b + 1
    Loop
    Label2.Text = "End"
End Sub

この行の結果a＆ ""＆bをGridViewに表示したいと思い ます。これを正しく機能させるには、コードをどのように変更すればよいですか？

4

2 に答える 2

1

値を DataTable に保存し、DataGridView にバインドすることをお勧めします

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)       Handles Button1.Click

    Label1.Text = "Beginning"

    'Create a new datatable here
    Dim dt As New DataTable
    dt.Columns.Add("Result")


    Dim a As Integer = 20
    Dim b As Integer = 3
    Do Until b > a

        'Create DataRow here and put the value into DataRow
        Dim dr As DataRow = dt.NewRow
        dr("result") = a.ToString & " " & b.ToString
        'a & " " & b
        dt.Rows.Add(dr)

        a = a - 2
        b = b + 1
    Loop

    'Bind your dt into the GridView
    DataGridView.DataSource = dt

    Label2.Text = "End"

End Sub
于 2012-05-14T00:53:48.183 に答える
1

フォームに DataGridView を追加し、2 つの列を追加すると、次の更新されたコードでそれが行われます

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)          Handles Button1.Click

    Label1.Text = "Beginning"

    ' If the DataGridView is not bound to any data source, this code will clear content
    DataGridView1.Rows.Clear()

    Dim a As Integer = 20
    Dim b As Integer = 3
    Do Until b > a

       'a & " " & b
       ' add the row to the end of the grid with the Add() method of the Rows collection...
       DataGridView1.Rows.Add(New String(){a.ToString(), b.ToString()})

       a = a - 2
       b = b + 1
    Loop
    Label2.Text = "End"
End Sub
于 2012-05-14T00:52:30.447 に答える