Распечатайте 17 меток справа налево без отчета по кристаллам - PullRequest
Новая
       33

Распечатайте 17 меток справа налево без отчета по кристаллам

0 голосов
/ 22 июня 2019

Я нарисовал свой отчет с именем (Crystal1). 17 Поле распределено по трем столбцам справа налево, первый столбец содержит 7 полей, второй содержит 7 полей, третий столбец содержит 3 блока. Каждый блок содержит 3 IFieldObject (FactoryId1 - FactoryRoom1- FactoryName1). В моем доступе к Таблице1 у меня есть несколько записей, может быть, 250, может быть, 300, может быть, 500 записей. В одной комнате может быть только 17 записей, максимум может быть меньше 17. Я хочу выбрать номер комнаты в ComboBox1, уже заполненный числами изОт 1 до 100 и распечатывать только записи комнаты, выбранные ComboBox1.С этим кодом, когда я захочу распечатать, у меня будет все 17 ярлыков на моем Crystal1, показывающих первую запись.Я знаю, как это сделать с помощью вкладки «Через», но по несчастью с опцией «Через вкладку» я не смог отобразить записи справа налево 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Rpt1 As New Crystal1
    Try
        If ComboBox1.Text = vbNullString Then
            MessageBox.Show("Choose room number please", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
        Else
            Dim Dt As New DataTable
            Dim Str As String = "Select * From Table1 Where Factory_Room_Number LIKE '" & ComboBox1.Text & "'"
            Dim Da As New OleDbDataAdapter(Str, Conne)
            Da.Fill(Dt)
            Rpt1.SetDataSource(Dt)
        End If
    Catch
    End Try
    Dim Frm As New Form2
    Me.Dispose()
    Frm.Show()
    Frm.CrystalReportViewer1.ReportSource = Rpt1
End Sub
...