AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS18042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-19 08:29:57 +02:00
parent b0a74d2e94
commit 034718d22e
37 changed files with 4334 additions and 1746 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Global_Indexer/frmIndexFileList.vb
View File

@@ -5,13 +5,12 @@
Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset1.TBGI_FILES_USER". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
End If
End If
Catch ex As Exception
MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical)
@@ -54,5 +53,11 @@
Private Sub frmIndexFileList_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.BringToFront()
CheckedListBoxControl1.Focus()
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
Me.Close()
End Sub
End Class