Új hozzászólás Aktív témák

• cigam titán

  #2418

  #2417 bepken

  2014-03-14 20:32:25

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  cigam

  titán

  #2417 bepken

  #2417 bepken

  sziasztok!

  a következő problémám volna:
  teljesen elölről kezdtem a kis művemet, ezúttal külső adatbázisra hivatkozik és ez kellően meg is bonyolította számomra a dolgokat...

  így néz ki a kereső gomb click event:

  Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
  
  'telefonszám szövegének formázása
  txtTelNumber.Text = ""
  txtTelNumber.Paste()
  txtTelNumber.Text = Replace(txtTelNumber.Text, " ", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "/", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "(", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, ")", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "-", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "+", "")
  
  If txtTelNumber.TextLength > 7 Then
  
  If txtTelNumber.Text.StartsWith("06") Then
  txtTelNumber.Text = txtTelNumber.Text.Substring(2)
  End If
  If txtTelNumber.Text.StartsWith("36") Then
  txtTelNumber.Text = txtTelNumber.Text.Substring(2)
  End If
  End If
  
  con.Open()
  sql = "SELECT [tel] from tel"
  da.Fill(ds, "tel")
  con.Close()
  
  For index = 0 To ds.Tables("tel").Rows.Count - 1
  Dim dt As DataTable
  dt = ds.Tables("tel")
  
  If txtTelNumber.Text = ds.Tables("tel").Rows(index).Item("tel") Then
  lbTelNum.Text = ds.Tables("tel").Rows(index).Item("tel")
  Else
  lbTelNum.Text = ""
  End If
  
  If lbTelNum.Text = "" Then
  lbTelNum.Text = ""
  lbExist.Text = ""
  Else
  Me.lbTelNum.Text = Me.lbTelNum.Text
  Me.lbExist.Text = "Már létezik!"
  End If
  Next
  End Sub

  a cél továbbra is az volna, hogy a textbox-ba beírt számot keresse meg az access táblában, majd ha megtalálja, azt jelezze.

  ez ugye most úgy néz ki, hogy ha a "txtTelNumber" mezőbe beírt szám benne van a táblában, annak értéke kerüljön át az "lbTelNum" mezőbe (és mellette az "lbExist" is írjon ki valamit) >> hogyha a "lbTelNum" üres, akkor egyszerűen nullázza ki ezt a két mezőt.

  a gyakorlatban ez működik is, de csak az első érték beadásakor....ha jól sejtem, az lehet a gond, hogy a következő kattintáskor már nem fut le a ciklus.
  próbáltam Else ágon újra beadni neki ugyanezt a ciklust, de csúnyán megakasztottam vele a gépet, úgyhogy valószínűnek tartom, hogy nem az lesz a megoldás...

  várom az ötleteket, véleményeket!

  _____________________________________________________

  szerk.:
  cigam!

  a Form_Load részhez írd be:
  KeyPreview = True

  a Form_Load részhez?
  1 hete ismerkedem a VB2010expressel, semmi nem evidencia.

  Viszont most megint átnéztem jobboldalt a properties ablakban a "Form1 System.Windows.Forms.Form" listájában a "KeyDown"-hoz tudtam társítani az "ido_KeyDown" szubrutint, és most működik!

  - A form load részt hol találom, és a program "melyik része" ez?
  - Ez a "Form1 System.Windows.Forms.Form" micsuda?

Új hozzászólás Aktív témák