Hallo,
hat jemand eine erprobte Lösung für mein Anliegen, ein Array aus einer Maske in eine
Access Tabelle abzulegen ?
Hier die Definition der Maske :
object paClient: TPanel
Left = 0
Top = 32
Width = 507
Height = 406
Align = alClient
TabOrder = 1
object dbgrdMAMonat: TDBGrid
Left = 1
Top = 1
Width = 505
Height = 404
Align = alClient
DataSource = dsMAMonat
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = []
OnColExit = dbgrdMAMonatColExit
Columns = <
item
Expanded = False
FieldName = 'MandantNr'
Visible = False
end
item
Expanded = False
FieldName = 'PersonalNr'
Visible = False
end
item
Color = clBtnFace
Expanded = False
FieldName = 'Monat'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ReadOnly = True
Title.Alignment = taCenter
Width = 100
Visible = True
end
item
Color = 15786144
Expanded = False
FieldName = 'GrundlohnS1'
Title.Alignment = taCenter
Title.Caption = 'Grundlohn S1'
Width = 90
Visible = True
end
item
Color = 15786144
Expanded = False
FieldName = 'GrundlohnS2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Alignment = taCenter
Title.Caption = 'Grundlohn S2'
Width = 90
Visible = True
end
item
Color = 10547440
Expanded = False
FieldName = 'Sollzeit'
Title.Alignment = taCenter
Width = 100
Visible = True
end
item
Color = 11595968
Expanded = False
FieldName = 'ZuschlagAkto'
Title.Alignment = taCenter
Title.Caption = 'Zuschläge Akto'
Width = 100
Visible = True
end>
end
end
Ciao
Alf
:bounce1: