行数并将每一行分配给一个标签

Question

请帮帮忙，我被困在这里了。
1. 我正在尝试计算表格行数。
2. 在此表中，“策略类型”是名称。我将分配给“当前策略”左角的链接标签（我将通过 loop.i-e 执行此操作。在乞求时，单行的每个名称都没有链接标签链接标签将生成哪个文本为“策略类型”。）
3. 然后单击链接标签，描述将出现在“当前策略详细信息”中。

这是我解释所有这些的设计。下面的设计是我正在尝试做的编码。

设计。
抱歉，我无法发布我的声誉低于 10 分的图片。请从下面的草图中猜一猜。

|""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""" """""""""""""""""""""""""""""""""""|
| .-当前政策------------------------------------||-------- -------------------------------------------------- ------------|
| | Linklabel1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||-- 当前政策详情 --- --------------------------------------------------|
| |Linklabel2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel5,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel6,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel7,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel8,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| | |Linklabel9,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,||,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,| |_______________________________ em>__________________________________________________|

代码。

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  

Answer 1

尝试（你可能不得不玩 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