- MinDig TV
- DIGI internet
- Kínában túl sok az EV, fokozódik az árháború
- Mobilinternet
- Az MSI RadiX AXE6600 tesztje – router, játékosoknak
- Hálózati / IP kamera
- 3 évig még biztosan nem rendelhetünk Xiaomi EV-t
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- HBO Max & OD topic
- Milyen program, ami...?
Új hozzászólás Aktív témák
-
bepken
veterán
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 Suba 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[ Szerkesztve ]
╔═══════ "Csak egy visszatérés létezik és az nem a királyé...hanem a JEDIÉ!" ═════╗ ╚════════════════ Xiaomi Mi A1 ═════ Huawei Nova 5T ═════════════╝
Új hozzászólás Aktív témák
- ZOTAC GeForce GTX 1080 AMP Edition 8GB GDDR5X 256bit
- Filmes gép gyűjtemény
- Nikon D5000 + AF-S DX NIKKOR 18-105 mm
- Bontatlan Seagate & Western Digital HDD-k 3TB - 12TB -ig - Számla + Garancia, Ár alatt! BeszámítOK!
- DJI Mini 4 pro FMC drón - 3 akku, RC2 táv, 2 táska, Filterek, 2025. decemberig garancia, DJI Care