MS TreeView

This commit is contained in:
2022-06-09 14:18:38 +02:00
parent 8a43edbc13
commit d5ed7ac6bc
33 changed files with 1411 additions and 150 deletions

View File

@@ -82,16 +82,5 @@ Public Class frmtest
oForm.Focus()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
Dim oSQL = $"Declare @LAST_SN_ID BIGINT
EXEC PRIDB_NEW_DYNAMIC_FOLDER '{TextBox2.Text}','{My.Application.User.UserName}',1,@LAST_SN_ID OUTPUT
SELECt @LAST_SN_ID"
Dim oNodeID As Integer
oNodeID = My.DatabaseIDB.GetScalarValue(oSQL)
If IsNothing(oNodeID) = False Then
End If
End Sub
End Class