How can I change the color of the text and the background of a cell of a query by script?

Sub Action(Query, QueryBrowser)

  Set obj_Cell = Query.Cell(1,1)

  If Not obj_Cell Is Nothing Then

    If obj_Cell.Style Is Nothing Then

      Set obj_Cell.Style = CreateObject("Comos.NQuery.NStyle")

    End If

 

    obj_cell.Style.Font.Underline = true

    obj_cell.Style.BackColor = 64588

    obj_cell.Style.ForeColor = 255

    obj_cell.Style.TipText = "test"

    QueryBrowser.Refresh

  End If

End Sub

 Bear in mind that refresh of query removes cell styles.

You can also use event GetBackColor on attribute. If attribute is set as cell object, query takes that color .

Regards

Jiri