| |
VB.NET - FortgeschritteneProjekt Unterstützung | | | Autor: ERBRU | Datum: 02.09.17 12:43 |
| Hallo zusammen,
habe vor mir aufgrund diverser "Vorgänge" die ich so bearbeiten muss ein Archiv in VB 2012 zu erstellen.
nun möchte ich da mal ein TreeView nutzen, da sind meine Erfahrungen noch recht ausreichend.
wer könnte mir da bisschen auf die Sprünge helfen.
habe zunächst ein Dataset mit 3 Tabellen angelegt
Vorgang Tabelle
ID = int32
angelegtam = DateTime
Vorgangsname = String
Vorgangsbeschreibung = String
Ablage Tabelle
eine Ablage enthält 1 oder mehrere Vorgänge
ID = int32
Ablagename = String
IDDokumente = int32 BeziehungsID zu Dokumente Tabelle
IDVorgang = int32 BeziehungsID zu Vorgang Tabelle
Dokumente Tabelle
ID = int32
Dokument = String
mein Code:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) _
Handles btnAdd.Click
Dim N As String
N = txtAdd.Text
If txtAdd.Text = String.Empty Then Return
If trvTree.SelectedNode Is Nothing Then
trvTree.Nodes.Add(N, N)
Else
trvTree.SelectedNode.Nodes.Add(N, N)
End If
txtAdd.Text = String.Empty
trvTree.ExpandAll()
End Sub
Private Sub trvTree_AfterSelect(sender As Object, e As TreeViewEventArgs) _
Handles trvTree.AfterSelect
txt_Selected_Node.Text = e.Node.Text
End Sub
wie bindet man das nun an das TreeView ? bzw. FillTree oder so aus DS / Tabelle ? | |
Re: Projekt Unterstützung | | | Autor: ERBRU | Datum: 05.09.17 18:29 |
| Hallo Manfred X,
Danke!, habe das TV zunächst verworfen stattdessen ein DGV genommen.
Kannst du mir zu dieser Funktion Hilfe geben?
wie kann ich in der angehängten Funktion noch eine Prüfung setzen?
Pflichtfeld für "AblagenameTextBox", User sollte nur noch abbrechen können oder eben eingeben
bevor das OK kommt
Meldung: Bitte machen Sie eine Eingabe, oder brechen Sie den Vorgang ab!
(das Form soll also nicht gleich geschlossen werden)
Public Function Ablagemaske(ByVal Form_Use As Frm_Use, ByVal Ablage As _
ABLAGERow) As ABLAGERow
'kein aktueller Datensatz in der BindingSource gewählt/vorhanden
If Ablage Is Nothing Then Return Nothing
Using Editor As New frmAblage
With Editor
.Bearbeiten = Form_Use
Select Case Form_Use
Case Frm_Use.Bearbeiten
.IDTextBox.Text = CInt(Ablage.ID)
.AblagenameTextBox.Text = Convert.ToString( _
Ablage.AblageName)
Case Frm_Use.Neu
.AblagenameTextBox.Select()
End Select
If .ShowDialog = Windows.Forms.DialogResult.OK Then
' hier hole ich die Daten der Form ab.
' Sobald da das OK zurückkommt
Ablage.AblageName = CStr(.AblagenameTextBox.Text).ToString
Else
Ablage.AblageName = CStr( _
.AblagenameTextBox.Text).ToString
End If
If Form_Use = Frm_Use.Neu Then
' Status setzen
ReturnStatus = Frm_Use.Neu
Else
ReturnStatus = Frm_Use.Bearbeiten
End If
End With
End Using
Return Ablage
End Function | |
Re: Projekt Unterstützung | | | Autor: Manfred X | Datum: 06.09.17 09:23 |
| Hallo!
Falls ich Dich richtig verstanden habe,
ziehe einen Button OK auf das Formular,
setze die OK.enabled-Eigenschaft zunächst auf false,
prüfe im TextChanged-Event der Textbox ob ein gültiger
Eintrag vorliegt und setze ggf. OK.Enabled auf true.
Die Meldung entfällt. | |
Re: Projekt Unterstützung | | | Autor: ERBRU | Datum: 07.09.17 15:01 |
| Das hat funktioniert, Danke! | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|