計算在VB.NET中的文本框中有多少建議

Question

我在寫文本框時使用此代碼來提示姓名。 當沒有更多的建議，我想展示一個新的表格，但我不知道如何計數建議itens。

任何人都可以幫助我嗎？

在此先感謝並對我的英語感到抱歉。

If txt_nome.Text.Length >= 3 Then 

     Using con As NpgsqlConnection = GetConnection() 

      Dim sql As String 
      sql = "SELECT nome FROM dados_pessoais" 
      Dim cmd As NpgsqlCommand = New NpgsqlCommand(sql, con) 
      Dim da As NpgsqlDataAdapter = New NpgsqlDataAdapter(cmd) 
      Dim ds As New DataSet 

      da.Fill(ds, "list") 
      Dim col As New AutoCompleteStringCollection 
      Dim i As Integer 
      For i = 0 To ds.Tables(0).Rows.Count - 1 
       col.Add(ds.Tables(0).Rows(i)("nome").ToString()) 
      Next 
      txt_nome.AutoCompleteSource = AutoCompleteSource.CustomSource 
      txt_nome.AutoCompleteCustomSource = col 
      txt_nome.AutoCompleteMode = AutoCompleteMode.Suggest 

     End Using 
    End If 
End Sub 

Answer 1

能否請您試試這個

1. 添加這對你的公共類的形式（表單名以上）

Dim c As New NsqlConnection(GetConnection)

Dim cmd As New NsqlCommand

Dim da As New NsqlDataAdapter

Dim dr As NsqlDataReader

Dim ds, ds1 As New DataSet

那麼公共類中的任何位置粘貼此

Sub CountNumbers 
Dim x as integer 
Try 
ds.Clear() 
c.Open() 
cmd = New NsqlCommand("SELECT Count(nome) FROM dados_pessoais", c) 
da = New NsqlDataAdapter(cmd) 
da.Fill(ds, "dados_pessoais") 
x = ds.Tables(0).Rows(0).Item(0) 
if x = 0 then 
'Go to your Form 
else 
'Do Nothing 
end if 

Catch ex As Exception 
MsgBox(ex.Message) 
Finally 
c.Close() 
End Try 


End Sub 

的在你的代碼上面上面月底子寫這個

CountNumbers

我寫這個沒有嘗試，如果這一個工作，但如果沒有，我會幫助你的錯誤。這是很長的方法，但我確定有一個短的方法