Bonität Neu

This commit is contained in:
2022-12-07 11:52:29 +01:00
parent f985548787
commit d6da1f2865
5 changed files with 103 additions and 35 deletions

View File

@@ -44,7 +44,7 @@
.SET_SQL(sqlstr, "FMZOLL")
.LOAD()
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
.RowHeadersVisible = False
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
@@ -70,6 +70,7 @@
For Each c As DataGridViewColumn In .Columns
c.HeaderText = c.Name.Replace("ba_", "")
Next
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
End With
End If