0

ここで少し助けてください。ここで立ち往生しています。
1. テーブルの行をカウントしようとしています。
2. この表の「ポリシー タイプ」は名前です。これを「現在のポリシー」の左隅にあるリンク ラベルに割り当てます (これは loop.ie を介して行います。最初は、1 行のリンク ラベルの名前ごとにリンク ラベルはありません。
3. その後、[リンク ラベル] をクリックすると、説明が [現在のポリシーの詳細] に表示されます 。

これは、私がこのすべてを説明したデザインです。デザインの下には、私がやろうとしていることのコーディングがあります。

デザイン。
申し訳ありませんが投稿できません。私の評判は 10 を下回っています。下のスケッチから推測してください。

|""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """""""""""""""""""""""""""|
| | . -現在のポリシー------------------------||--------------------- -------------------------------------------------- ----------|
| | | | Linklabel1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||-- 現在のポリシーの詳細 --- --------------------------------------------------|
| | |Linklabel2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、| ||-- 現在のポリシーの詳細 ------------------------------------------- ------| | | |Linklabel2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、| | | |Linklabel3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、| ||-- 現在のポリシーの詳細 ------------------------------------------- ------| | | |Linklabel2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、| | | |Linklabel3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel5,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel6,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel7,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel8,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | |Linklabel9,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、|
| | _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __ _ __ _ _ _ _ _ _ _| _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

コード。 

Imports System.Data.SqlClient  
Public Class New_Policy  
Dim con As SqlConnection = New SqlConnection("Data Source=CILENTEYEZ-PC\CILENTEYEZ;Initial Catalog=Keeper;Integrated Security=True")  
Dim cmd As SqlCommand  
Dim myDA As SqlDataAdapter  
Dim myDataSet As DataSet  
Dim dr As SqlDataReader  
Dim dt As DataTable  

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

    cmd = New SqlCommand("Select count(*) from Policy")  
    If con.State = ConnectionState.Closed Then con.Open()  
    dt = cmd.ExecuteScalar()  

    If dt.Rows.Count > 0 Then  

        Label15.Text = dt.Rows.Count.ToString()  
    Else  
        MsgBox("There are no rows yet.")  

    End If  


    con.Close()  

End Sub
4

1 に答える 1

0

試してみてください（if thenステートメントをいじる必要があるかもしれません。私はvbで少し錆びています）

Imports System.Data.SqlClient  
Public Class New_Policy  
Dim con As SqlConnection = New SqlConnection("Data Source=CILENTEYEZ-PC\CILENTEYEZ;Initial Catalog=Keeper;Integrated Security=True")  
Dim cmd As SqlCommand  
Dim myDA As SqlDataAdapter  
Dim myDataSet As DataSet  
Dim dr As SqlDataReader  
Dim dt As DataTable  

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

    cmd = New SqlCommand("Select count(*) from Policy")  
    If con.State = ConnectionState.Closed Then con.Open()  
    dt = cmd.ExecuteScalar()  

If dt.Rows.Count > 0 Then 

     Label1.Text=dt.Rows(0).Item(0).ToString()  
     Label2.Text=dt.Rows(1).Item(0).ToString() 
      If dt.Rows.Count > 1 Then 
        Label3.Text=dt.Rows(2).Item(0).ToString()
      End If 
      If dt.Rows.Count > 2 Then 
        Label4.Text=dt.Rows(3).Item(0).ToString()
      End If 
      If dt.Rows.Count > 3 Then 
        Label5.Text=dt.Rows(4).Item(0).ToString()
       End If 
      If dt.Rows.Count > 4 Then 
        Label6.Text=dt.Rows(5).Item(0).ToString() 
      End If
      If dt.Rows.Count > 5 Then 
         Label7.Text=dt.Rows(6).Item(0).ToString() 
       End If

 Else  
        MsgBox("There are no rows yet.")  

    End If  


    con.Close()  

End Sub
于 2013-10-22T21:45:27.933 に答える