Public Sub OnRowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GridViewHierachical.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.Cells(1).Text = "Delayed" Then
                e.Row.Cells(1).ForeColor = Drawing.Color.Red
                e.Row.Cells(1).Text = "p"  ' <== Wingdings3 character used to produce a down pointing solid triangle
                ' Change the font for column one to wingdings3 ==>  GridViewHierachical.Columns(1).DefaultCellStyle.Font = New Drawing.Font(GridViewHierachical.DefaultCellStyle.Font)
            End If
            If e.Row.Cells(1).Text = "Potential Early" Then
                

Select all Open in new window

{
    "KalTid": [
        {
            "AnstNr": "1",
            "Datum": "2014-01-02",
            "RadId": "9b8412eb-77a4-4e0b-853e-fdd78edeac8a",
            "UseTid": true,
            "StartTid": "08:00",
            "SlutTid": "08:00",
            "Timmar": 8,
            "Dagar": 0,
            "TidKod": "SJK",
            "UseBrukare": true,
            "UseResEnhet1": false,
            "UseResEnhet2": false,
            "UseResEnhet3": false,
            "Brukare": "1",
            "ResEnhet1": "",
            "ResEnhet2": "",
            "ResEnhet3": "",
            "Registrerad": true,
            "CalcTyp": "",
            "Source": "PORTAL"
        }
    ]
}

Select all Open in new window

Imports Microsoft.VisualBasic
Imports Newtonsoft.Json

Public Class KalTid
    <JsonProperty("AnstNr")>
    Public Property AnstNr As Long

    <JsonProperty("Datum")>
    Public Property Datum As DateTimeOffset

    <JsonProperty("RadId")>
    Public Property RadId As Guid

    <JsonProperty("UseTid")>
    Public Property UseTid As Boolean

    <JsonProperty("StartTid")>
    Public Property StartTid As String

    <JsonProperty("SlutTid")>
    Public Property SlutTid As String

    <JsonProperty("Timmar")>
    Public Property Timmar As Long

    <JsonProperty("Dagar")>
    Public Property Dagar As Long

    <JsonProperty("TidKod")>
    Public 

Select all Open in new window

Public Class _Default
    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

        '  ???   <== Here   ?

    End Sub

End Class

Select all Open in new window

  If Not IsNumeric(.CurrentCell.Value) Then
                        .CurrentCell.Value = 0
                    Else
                        .CurrentCell.Value = Double.Parse(Double.Parse(.CurrentCell.Value).ToString("##0.00"))
                    End If

Select all Open in new window

       Dim selectedRowCount As Integer = Form1.dgResults.Rows.GetRowCount(DataGridViewElementStates.Selected)
        Dim SerialNo As Integer = Nothing

        For i = 0 To selectedRowCount - 1
            SerialNo = Form1.dgResults.SelectedRows(i).Cells("SerialNo").Value
            Debug.Print(RecordSerialNo)
            Try
             
               
                Me.IAdapter.Fill(Me.DataSet1.I, SerialNo)
                Me.pAdapter.Fill(Me.DataSet1.p, SerialNo)
                Me.vAdapter.Fill(Me.DataSet1.v, SerialNo)
                

Select all Open in new window

 
        Dim myArray(0) As String
        Dim i As Integer
        Dim myReader As OleDbDataReader

        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT DISTINCT BulkSaleNumber FROM tblAssetData"
        myReader = cmd.ExecuteReader()
        Do While myReader.Read()
            myArray(i) = myReader!BulkSaleNumber
            ReDim Preserve myArray(UBound(myArray) + 1)
            i += 1
        Loop

Select all Open in new window