Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. www.neurohope.ro |
Un-concatenate
Last Updated: Sep 15 2010 07:43, Started by
alidj24
, Sep 14 2010 11:45
·
0
#1
Posted 14 September 2010 - 11:45
Salut.
Am urmatorul cod, trimite informatii care le introduc in textboxes, 6 la numar. Fiecare texbox trimite informatia catre o anumita celula. FullName = TextBox1.Text & "| " & TextBox2.Text & "|" & TextBox3.Text preia informatiile de la primele 3 textbox si le trimite catre o singura celula, sub forma "xxxxxxxxxxxxxxxxxxxxxxxxxxxx| xxxxxxxxxxxxxxxxxxx|xxxxxxxxxx". Acum vreau sa creez un buton care sa imi adune informatia aceasta dar sa le aduca inapoi pe fiecare textbox. xxxxxxxxxxxxxxxxxxxxxxxxxxxx| = textbox1, xxxxxxxxxxxxxxxxxxx=textbox2 si |xxxxxxxxxx = textbox3. Am nevoie sa se faca exact opusul concatenate. Private Sub CommandButton7_Click() Dim FullName As String FullName = TextBox1.Text & "| " & TextBox2.Text & "|" & TextBox3.Text Label10 = FullName ActiveCell.value = FullName If TextBox1 = "" Then TextBox2 = "" TextBox3 = "" ActiveCell.value = "Address empty!!!" End If ActiveCell.Offset(0, 1).Select FullName = TextBox4.Text ActiveCell.value = FullName ActiveCell.Offset(0, 1).Select FullName = TextBox5.Text ActiveCell.value = FullName ActiveCell.Offset(0, 2).Select FullName = TextBox6.Text ActiveCell.value = FullName End Sub Merci mult. |
#2
Posted 15 September 2010 - 07:43
alidj24, on 14th September 2010, 12:45, said: Salut. Am urmatorul cod, trimite informatii care le introduc in textboxes, 6 la numar. Fiecare texbox trimite informatia catre o anumita celula. FullName = TextBox1.Text & "| " & TextBox2.Text & "|" & TextBox3.Text preia informatiile de la primele 3 textbox si le trimite catre o singura celula, sub forma "xxxxxxxxxxxxxxxxxxxxxxxxxxxx| xxxxxxxxxxxxxxxxxxx|xxxxxxxxxx". Acum vreau sa creez un buton care sa imi adune informatia aceasta dar sa le aduca inapoi pe fiecare textbox. xxxxxxxxxxxxxxxxxxxxxxxxxxxx| = textbox1, xxxxxxxxxxxxxxxxxxx=textbox2 si |xxxxxxxxxx = textbox3. Am nevoie sa se faca exact opusul concatenate. Private Sub CommandButton7_Click() Dim FullName As String FullName = TextBox1.Text & "| " & TextBox2.Text & "|" & TextBox3.Text Label10 = FullName ActiveCell.value = FullName If TextBox1 = "" Then TextBox2 = "" TextBox3 = "" ActiveCell.value = "Address empty!!!" End If ActiveCell.Offset(0, 1).Select FullName = TextBox4.Text ActiveCell.value = FullName ActiveCell.Offset(0, 1).Select FullName = TextBox5.Text ActiveCell.value = FullName ActiveCell.Offset(0, 2).Select FullName = TextBox6.Text ActiveCell.value = FullName End Sub Merci mult. functia split()??????? Edited by scorillobr, 15 September 2010 - 07:43. |
Anunturi
▶ 1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users