كان يفضل ان تضع نسخة اعدة البيانات سكربت 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
وبكده كلما قمت بتغيير الخيار سيتغير التصميم طبقاً للتصميم والبيانات المدخلة
اتمنى ان تكون الصورة واضحة وان الشرح مبسط ولا يوجد به اى تعقيدات
اتمنى ايضاً مراجعة هذا الموضوع
تحياتى لك
وتمنياتى لك التوفيق