Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
19 / 10 / 8
Регистрация: 01.06.2016
Сообщений: 69

Диаграмма Chart1 и DataBind

07.01.2018, 17:36. Показов 2397. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет!
Есть таблица в DataGridView1. Таблица отрисовывается нормально. Пытаюсь на основе таблицы отрисовать диаграмму Chart1.
Нно код спотыкается на Chart1.DataBind() и дальше ни в какую. После Chart1.DataBind() даже сообщения Msg() не проходят..
А в аналогичной работе никаких загвоздок.
Подскажите, люди добрые, в чем может быть проблема..
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
'Составленную таблицу указываем в качестве источника данных:
        Chart1.DataSource = dt
        Chart1.Series("Series1").XValueMember = "Месяц"
        Chart1.Series("Series1").YValueMembers = "Сумма"
        Chart1.Titles.Add("Комиссионные")
        Chart1.Series("Series1").ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Column
        Chart1.Series("Series1").Color = Color.Blue
        Chart1.Series("Series1").IsVisibleInLegend = False
 
        MsgBox("до DataBind") 'окошко выскакивает
        'Привязка графика к источнику данных:
        Chart1.DataBind()
        MsgBox("после DataBind") ' нету окошка
До этого кода данные запихиваются в таблицу, которая нормально отрисовывается.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.01.2018, 17:36
Ответы с готовыми решениями:

Points.DataBind несколько точек Y
Добрый день всем! Подскажите, кто знает.. Как осуществить привязку нескольких точек Y к диаграмме? на МСДН: public void...

Работа с chart1
Такая проблема: Есть chart1 нужно в него добавить точки по координатам а я у мею только добовлять линии как добавить точкиВот код если...

Работа с Chart1
Правильный ли отрывок кода??? Если да, то почему он не работает??? procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState;...

6
4709 / 3662 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
07.01.2018, 18:50
Лучший ответ Сообщение было отмечено Skif Mason как решение

Решение

Skif Mason, код вполне рабочий. Напомню что значениями XValueMember и YValueMembers д.б. соответствующие имена полей таблицы. Если не было каких-то особенностей в настройке Chart1, то все должно работать.
1
19 / 10 / 8
Регистрация: 01.06.2016
Сообщений: 69
07.01.2018, 18:55  [ТС]
ovva, странно. Подобная программа товарища с другим вариантом на моем компе нормально отрабатывает. Я открыл оба проекта и построчно сверил свойства, они один в один, нетронуты были. Не подскажете, есть ли еще где-нибудь какие-нито настройки?
0
4709 / 3662 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
07.01.2018, 19:06
Skif Mason
Без проекта можно только гадать. Ну, попробуйте заменить DataTable на DataView. М.б. он будет более отзывчив. И потом что-то происходит в процессе загрузки в Chart1, фиксируются какие-то ошибки. Процесс чем то заканчивается?
1
19 / 10 / 8
Регистрация: 01.06.2016
Сообщений: 69
07.01.2018, 19:11  [ТС]
Второй MsgBox не открывается, сразу открывается форма. На форме таблица со всеми своими значениями как порядочная лежит, а на Месте диаграммы - белое поле с названием.
Миниатюры
Диаграмма Chart1 и DataBind  
0
4709 / 3662 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
07.01.2018, 19:35
Вот простой пример. Все отрабатывает без каких-либо проблем.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private DT As DataTable
Private DV As DataView
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    DT = createTable() 'моделирование источника данных
    DV = DT.DefaultView
    DataGridView1.DataSource = DT
    Try
        With Chart1
            '.DataSource = DT
            .DataSource = DV
            .Series("Series1").XValueMember = "ID"
            .Series("Series1").YValueMembers = "Значения"
            .DataBind()
            .Series("Series1").ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Column
            .Series("Series1").Color = Color.Blue
            .Series("Series1").IsVisibleInLegend = False
        End With
    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try
End Sub
Миниатюры
Диаграмма Chart1 и DataBind  
1
19 / 10 / 8
Регистрация: 01.06.2016
Сообщений: 69
07.01.2018, 19:38  [ТС]
Цитата Сообщение от ovva Посмотреть сообщение
Напомню что значениями XValueMember и YValueMembers д.б
вот д.б. (сокращение от Лаврова) - это про меня. Поменял на те же, что в таблице - все заработало.
ovva, большое спасибо, который раз уже выручаете!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.01.2018, 19:38
Помогаю со студенческими работами здесь

Гистограмма Chart1
Как сделать так, чтобы на гистограмме по оси X, были отображены все буквы алфавита? string labels = { "А", "Б",...

DataBind CheckBoxList с используя MS SQL Stored Procedure и CommandType.StoredProcedure
Есть процедура, с помощью которой делаю выборку машин определенного цвета: CREATE PROCEDURE . @COLOR nvarchar(max) AS BEGIN ...

Сохранение рисунка из chart1. Visual Studio, C++, Windows Forms Application
Как сохранить рисунок графика из chart1. Visual Studio, C++, Windows Forms Application.

Как вывести информацию из Edit1, Edit2, Edit3, ... в Chart1 (гистограмма)
Здравствуйте. Не могли бы Вы подсказать, как вывести информацию из Edit1, Edit2, Edit3, ... в Chart1 (гистограмма). Заранее спасибо

Трехмерный график функции Chart1 с определенными интервалами, в чем ошибка?
как можно сделать трехмерый график функции Chart1 с определенными интервалами на лазарус function F(x,y,z: real): real; begin F:=...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru