[VB6] Report Designer 6.0 e modifiche runtime

[Gianluca Frati]

Ciao!

Utilizzando Visual Basic 6 (SP6) e Il Data Report Designer 6.0 sto cercando di modificare il formato del testo run-time di un campo associato, per la precisione, vorrei che, in un campo date, mi venisse fatto in grassetto i giorni sabato e domenica.
Ho provato così ma il report mi mostra le date dei sabati e delle domeniche in testo normale, come se nulla fosse.

Vi posto quello che ho fatto finora:

Option Explicit

Dim WithEvents myDescription As StdDataFormat

Private Sub DataReport_Initialize()

    Set myDescription = New StdDataFormat
    Set Me.Sections(3).Controls("txtData").DataFormat = myDescription

End Sub

Private Sub myDescription_Format(ByVal DataValue As StdFormat.StdDataValue)
    If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
        Me.Sections(3).Controls("txtData").Font.Bold = True
    End If
    DataValue = Format(DataValue, "d ddd")
End Sub

Qualcuno può aiutarmi?

Ciao!

[LMondi]

Il codice per il grasetto è il seguente. In apparenza sembra uguale al tuo, se così fosse controlla le condizioni If:

With DRDiff.Sections("Section3")
.Controls("Txt5").Font.Bold = True
End With

PS. anzi mi sembra che ci sia un'imprecisione in ("Section3")

[Gianluca Frati]

Innanzitutto grazie per la risposta.

Però non credo di aver ben capito la modifica che mi hai suggerito.
Comunque ho messo giù il codice in questo modo ma ancora non c'è grassetto nel report.

Option Explicit

Dim WithEvents myDescription As StdDataFormat

Private Sub DataReport_Initialize()

    Set myDescription = New StdDataFormat
    Set Me.Sections(3).Controls("txtData").DataFormat = myDescription

End Sub

Private Sub myDescription_Format(ByVal DataValue As StdFormat.StdDataValue)
    If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
        With rptCartellino.Sections("Section1")
            .Controls("txtData").Font.Bold = True
        End With
    End If
    DataValue = Format(DataValue, "d ddd")
End Sub

Suggerimenti?

[Gianluca Frati]

Inoltre ho verificato e nella condizione IF ci entra quando è giusto che lo faccia ma il report continua a non volermi visualizzare il grassetto.

[LMondi]

Mi sembra che questa parte del codice ora sia giusta:
If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
With rptCartellino.Sections("Section1")
.Controls("txtData").Font.Bold = True
End With
End If

Mentre questa parte non mi convince:
Set Me.Sections(3).Controls("txtData").DataFormat = myDescription

Prova a modificarla così:

Set rptCartellino.Sections("Section3").Controls("txtDa ta").DataFormat = myDescription

[Gianluca Frati]

Rieccomi.
Niente da fare. Il risultato è ancora lo stesso. Niente grassetto.

Questo è il codice:

Option Explicit

Dim WithEvents myDescription As StdDataFormat

Private Sub DataReport_Initialize()

    Set myDescription = New StdDataFormat
    Set rptCartellino.Sections("Section1").Controls("txtData").DataFormat = myDescription

End Sub

Private Sub myDescription_Format(ByVal DataValue As StdFormat.StdDataValue)
    If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
        With rptCartellino.Sections("Section1")
            .Controls("txtData").Font.Bold = True
        End With
    End If
    DataValue = Format(DataValue, "d ddd")
End Sub

[LMondi]

Ma hai controllato le Section che contengono il controllo Rtp? Vedo che continui a cambiarle.
Comunque il codice, a se stante, che inizialmente ho postato funziona, dato che l'ho provato.

With DRDiff.Sections("Section3")
.Controls("Txt5").Font.Bold = True
End With

[Gianluca Frati]

Section e oggetti all'interno della sezioni sono giusti, nel senso che la sezione numero 1 (section(1)) ha nome "section3". E' una cosa strana ma è così, ma non chiedermi il motivo di questa cosa perchè è una cosa molto lunga...
Comunque ti dico che è giusto perchè non mi viene riportato nessun errore, cosa che invece viene fatta se cambio la sezione di riferimento dell'oggetto. Quindi txtData appartiene alla Section3.

Una domanda: quando tu mi scrivi

With DRDiff.Sections("Section3") 
.Controls("Txt5").Font.Bold = True 
End With

corrisponde al mio codice

With rptCartellino.Sections("Section1")
.Controls("txtData").Font.Bold = True
End With

Dove rptCartellino è il report dentro al quale sto facendo il codice, giusto?

Ti chiedo una cortesia.
Mi posti il codice che hai usato tu e che ti funziona per favore?
Così provo a fare un confronto più dettagliato e vedo se riesco a venirne fuori...

Grazie!

[LMondi]

Gianluca, posto la routine quasi per intero, salvo la connessione al DB, spero che ti sia utile perchè altrimenti non saprei cosa indicarti:

' Controlla che il DB contenga i dati da visualizzare:
  If RSTpr4.EOF = False And RSTpr4.BOF = False Then
  ' Assegna il riferimento all'oggetto:
     Set DRDiff.DataSource = RSTpr4
   ' Inserisce i dati nel DataReport:
     With DRDiff.Sections("Section1")
         .Controls("Txt1").DataField = "Reg"
         .Controls("Txt2").DataField = "Dep"
         .Controls("Txt3").DataField = "Pro"
         .Controls("Txt4").DataField = "Res"
         .Controls("Txt5").DataField = "Val"
         .Controls("Txt5").Font.Bold = True
     End With
'... ... ... ...

Ti confermo che così ottengo il grassetto nel controllo Txt5

[Gianluca Frati]

Mmhh..forse ho capito perchè a te funziona e a me no.
Credo che non ci siamo capiti.

Cerco di spiegarmi meglio. Io nel report ho una TextBox che è associata ad un campo data che prelevo dal DB.
Io non voglio avere sempre questo campo in grassetto, ma voglio solo che i giorni sabato e domenica siano in grassetto. Per quello che infatti io a monte metto la condizione weekday che mi preleva il numero del giorno della settimana.
Quindi se tale numero è 7 (ovvero domenica), e solo in quel caso, la textbox deve essere fatta in grassetto.

Quello che mi hai messo tu funziona, però mi applica il grassetto alla textbox sempre indipendentemente dal giorno.
Io ho bisogno che qualcosa in runtime mi vada a verificare com'è la data e se è una domenica (e fin qua nella condizione IF la routine ci entra) però è l'assegnazione del Bold che non mi viene applicata,
ovvero questa istruzione

If Weekday(DataValue) = 1 Or Weekday(DataValue) = 7 Then
    With rptCartellino.Sections("Section1")
        .Controls("txtData").Font.Bold = True
    End With
End If

non fa quello che dovrebbe fare in runtime.
Praticamente, facendo il debug, l'if mi viene letto per 31 volte (ovvero quanti sono i giorni del mese che sto andando a stampare).
Dentro alla condizione mi entra solo se sto in quel momento analizzando un sabato o una domenica ma è l'istruzione

With rptCartellino.Sections("Section1")
    .Controls("txtData").Font.Bold = True
End With

che non mi applica il grassetto.

Temo che dovrò abbandonare il mio intento e accontentarmi del non grassetto....