VB.net использует условие Где между датами, чтобы открыть отчет - PullRequest
Новая
       5

VB.net использует условие Где между датами, чтобы открыть отчет

0 голосов
/ 24 мая 2018

Я хочу, чтобы в форме можно было выбирать промежуточные даты для фильтра отчета между Start_Date и End_Date.

это код, который у меня есть до сих пор. 

Try
        Dim acc_App As Object
        acc_App = CreateObject("Access.Application")
        acc_App.OpenCurrentDatabase(programpath, True)
        Dim strCriteria As String
        strCriteria = "Start_Date >= #" & datePicker.Text &
    "# And End_Date < #" & DateTimePicker1.Text & "#"
        lblPrueba.Text = strCriteria
        acc_App.visible = True
        acc_App.DoCmd.OpenReport("HorasTrabajadas", 2, WhereCondition:=strCriteria)
    Catch Ex As Exception

        MessageBox.Show(Ex.Message)

    End Try
End Sub

Моя проблема в том, что даже при получении данных от DatetimePicker он затем снова запрашивает у меня эти параметры при доступе, когда он открываетотчет.Мне нужна помощь.Спасибо.

1 Ответ

0 голосов
/ 24 мая 2018

Пользователь, следующий за кодом 

Try


   Dim acc_App As Object
    acc_App = CreateObject("Access.Application")
    acc_App.OpenCurrentDatabase(programpath, True)
    Dim strCriteria As String
    strCriteria = "Start_Date >= #"& datePicker.value.ToString("yyyy-MM-dd") & "# And End_Date < #" & DateTimePicker1.value.ToString("yyyy-MM-dd") & "#"
    lblPrueba.Text = strCriteria
    acc_App.visible = True
    acc_App.DoCmd.OpenReport("HorasTrabajadas", 2, WhereCondition:=strCriteria)
Catch Ex As Exception

    MessageBox.Show(Ex.Message)

End Try
End Sub

"гггг-ММ-дд" - это формат даты и времени, в котором вы можете использовать формат даты согласно вашему требованию.

...