none
for ..next问题 RRS feed

  • 问题

  • 1.   我想知道以下的for..next代码有问题吗?为什么我运行时没有任何变化?概念是当按下button1时,就会把listbox1的item分别显示在label1和label2。

     

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

     Dim a As Integer

            Dim i As Integer

    For i = 1 And a = 0 To i = 2 And a = 1

                DirectCast(Me.Controls("Label" & i.ToString()), Label).Text = ListBox1.Items(a).ToString

    Next

    End Sub

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            ListBox1.Items.Add("a")

            ListBox1.Items.Add("b")

        End Sub

     

    2.  有没有办法可以计算数据库的行数,而不用datagridview1的控件?

    2010年11月28日 5:15

答案

  • 您好

    1. 參考以下程式碼

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim i As Integer
      For i = 0 To 1
       DirectCast(Me.Controls("Label" & (i + 1).ToString()), Label).Text = ListBox1.Items(i).ToString
      Next
     End Sub
    
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      ListBox1.Items.Add("a")
      ListBox1.Items.Add("b")
     End Sub
    
    2. 關於數據庫行數,假如您是使用 DataTable,可以透過 DataTable.Rows.Count
    • 已标记为答案 ckjason 2010年11月28日 8:50
    2010年11月28日 6:58