Question

请问这里有点帮助，我被困在这里我正在尝试计算表格行 2.在此表中，“策略类型”是名称。我将分配给“当前政策”左下角的链接标签（我将通过loop.ie执行此操作。在乞讨时，单行的每个名称都没有链接标签链接标签将生成哪个文本将是“政策类型”。）
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

行计数并将每行分配给标签

1 个答案: