كان يفضل ان تضع نسخة اعدة البيانات سكربت Sql
تجنباً لاختلاف اصدارات النسخة
على اى حال عند مراجعة السورس
اول ما لفت انتباهي هو كود :
If ComboBox1.SelectedIndex = 0 Then
Form1_Load(Nothing, Nothing)
End Ifلماذا تستخدم الامر بهذا الشكل بينما يمكنك استخدام الامر بهذا الشكل
كود :
If ComboBox1.SelectedIndex = 0 Then
lodeData()
End Ifناتي الان الى الجزء كيفية تغير شكل الـ Chart حسب اختيار الخيارات من الـ ComboBox
أولاً لاحظ الكود التالىكود :
Private Sub lodeData()
Me.Chart1.DataSource = GetData()
Me.Chart1.Series("Series1").XValueMember = "Gop_emp"
Me.Chart1.Series("Series1").YValueMembers = "Total"
End Subتعال نجعل الكود بهذا الشكل
كود :
Private Sub lodeData(ByRef TB As DataTable, ByVal Ser As String, ByVal val1 As String, ByVal val2 As String)
Me.Chart1.DataSource = TB
Me.Chart1.Series(Ser).XValueMember = val1
Me.Chart1.Series(Ser).YValueMembers = val2
End Subناتى الان الى جزء استدعاء الـ lodeData
فى الحدث Form1_Load
ستجعله بهذا الشكلكود :
lodeData(GetData(), "Series1", "Gop_emp", "Total")طيب عند تحديد الـ ComboBox سيكون الشكل كالتالى
كود :
If ComboBox1.SelectedIndex = 0 Then
lodeData(GetData(), "Series1", "Gop_emp", "Total")
ElseIf ComboBox1.SelectedIndex = 1 Then
lodeData(GetData(), "Series2", "Gop_emp", "Total")
End Ifوبكده كلما قمت بتغيير الخيار سيتغير التصميم طبقاً للتصميم والبيانات المدخلة
اتمنى ان تكون الصورة واضحة وان الشرح مبسط ولا يوجد به اى تعقيدات
اتمنى ايضاً مراجعة هذا الموضوع
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية