97
Next
номер = номер + 1
oSheet.Range("B" + номер.ToString).Value = "ИТОГО:"
oSheet.Range("B" + номер.ToString).Font.Bold = True
oSheet.Range("B" + номер.ToString).Font.Italic = True
номер2 = номер - 1
oSheet.Range("D" + номер.ToString).Formula = "=SUM(D" + номер2.ToString + ":D13)"
oSheet.Range("E" + номер.ToString).Formula = "=SUM(E" + номер2.ToString + ":E13)"
oSheet.Range("F" + номер.ToString).Formula = "=SUM(F" + номер2.ToString + ":F13)"
oSheet.Range("G" + номер.ToString).Formula = "=SUM(G" + номер2.ToString + ":G13)"
oSheet.Range("H" + номер.ToString).Formula = "=SUM(H" + номер2.ToString + ":H13)"
oSheet.Range("I" + номер.ToString).Formula = "=SUM(I" + номер2.ToString + ":I13)"
'рисуем диаграмму
oSheet.Range("D" + номер.ToString + ":" + "I" + номер.ToString).select
oSheet.Shapes.AddChart.select
oSheet.Shapes("Диаграмма 2").Left = 0
oSheet.Shapes("Диаграмма 2").Top = 160
oSheet.Shapes("Диаграмма 2").Width = 495
oSheet.Shapes("Диаграмма 2").Height = 205
With oSheet.Application.ActiveChart
.SeriesCollection(1).XValues = "=Лист1!$D$12:$I$12"
'.ChartStyle = 261
.ChartType = 5
.ApplyLayout(6)
.ChartTitle.Text = "Анализ обработки заявок"
End With
oSheet.Range("A1").Select
oExcel.Visible = True
End Sub
End Class
Форма 18. Установка фильтра
Public Class Form18
Private Sub База_посещенийBindingNavigatorSaveItem_Click(sender As Object, e As
EventArgs)
End Sub
Private Sub Form18_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: данная строка кода позволяет загрузить данные в таблицу
"Uchet_poseshaemostiDataSet.База_посещений". При необходимости она может быть перемещена
или удалена.
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles
ToolStripButton1.Click
If CheckBox1.Checked = True Then
Form1.База_посещенийBindingSource.Filter = "Дата_заявки >= '" +
Дата_заявкиDateTimePicker.Text + "'" + " AND Дата_заявки <= '" + DateTimePicker1.Text +
"'" + " and Фамилия_заявителя like '" + Фамилия_заявителяTextBox.Text + "%" + "' And
Имя_заявителя LIKE '" + Имя_заявителяTextBox.Text + "%" + "' And Отчество_заявителя LIKE
'" + Отчество_заявителяTextBox.Text + "%" + "' And Статус_посещения LIKE '" +
Статус_посещенияComboBox.Text + "%" + "' And Номер_заявки LIKE '" +
Номер_заявкиTextBox.Text + "%'"
Else
Form1.База_посещенийBindingSource.Filter = "Фамилия_заявителя like '" +
Фамилия_заявителяTextBox.Text + "%" + "' And Имя_заявителя LIKE '" +
Имя_заявителяTextBox.Text + "%" + "' And Отчество_заявителя LIKE '" +
Отчество_заявителяTextBox.Text + "%" + "' And Статус_посещения LIKE '" +
Статус_посещенияComboBox.Text + "%" + "' And Номер_заявки LIKE '" +
Номер_заявкиTextBox.Text + "%'"
End If
Form1.Enabled = True
Form1.ToolStripButton1.Image = My.Resources.filter__1_
Hide()
Form1.Activate()
End Sub