ASP.NET

Private Sub BindGrid()
    Dim s As String = ""
    Dim reportType = ddlrpttype.SelectedValue

    conn.Open()

    If reportType = "Today" Then
        s = "SELECT * from mytable WHERE (DATEDIFF(day,CONVERT(datetime,mytable.date, 121),GETDATE()) = 0)  ORDER By date DESC "
    ElseIf reportType = "Yesterday" Then
        s = "SELECT * FROM mytable  WHERE (DateDiff(Day, Convert(DateTime, mytable.date, 121), GETDATE()) = 1)  ORDER By date DESC "
    ElseIf reportType = "All" Then
        s = "select * from mytable ORDER By mytable_no DESC "
    Else
        s = "select * from mytable ORDER By mytable_no DESC "
    End If
    Dim cmd As New SqlCommand(s)
    reportgrv.DataSource = GetData(cmd)
    reportgrv.DataBind()
    'Showing Numbers in Label
    Dim iTotalRecords As Integer = DirectCast(reportgrv.DataSource, DataTable).Rows.Count
    Dim iEndRecord As Integer = reportgrv.PageSize * (reportgrv.PageIndex + 1)
    Dim iStartsRecods As Integer = iEndRecord - reportgrv.PageSize

    If iEndRecord > iTotalRecords Then
        iEndRecord = iTotalRecords
    End If

    If iStartsRecods = 0 Then
        iStartsRecods = 1
    End If
    If iEndRecord = 0 Then
        iEndRecord = iTotalRecords
    End If
    lblTotalRecords.Text = "Total records Found: " & iTotalRecords.ToString() & ""
End Sub

samflex wrote:

and a lot of them laden with insults.

TextBox t = (TextBox)e.Item.FindControl("XYZ");

Markus Evacoso wrote:

I would like to prevent this behaviour.

<Target Name="AfterBuild">
        <Delete ContinueOnError="true" Files="$(TargetPath).config" />
  </Target>