Dim tx As DDActiveReports2.Field
            Set tx = Detail.Controls.Add("DDActiveReports2.Field")
            With tx
                .Name = "tx" & f.Name
                .DataField = f.Name
                .Left = lb.Left
                .Width = iWidthL
                .Top = txKu.Top
                .Height = txKu.Height
                .Alignment = ddTXRight
                .Font.Size =  7 
                .OutputFormat = "#,##0.00"
            End With