(08-08-18, 12:06 PM)DOX.1 كتب : السـلام عليكم روحمة الله وبركاته 


عندي فكره حاولت أطبقها ما هي راضيه تضبط 

الفكره وهي cmbobox  يكون فيها ثلاث قوائم أحصائيات 

بمجرد ما أختار أحصائيه تظهر النتائج على chart  حسب الأجراء المخزن 

أنا كاتب هالكود لما أضعه في حدث اللود تظهر لكن لما أضع الأمر داخل زر لا يعمل ..!!؟؟

كود :

 Me.Chart1.DataSource = GetData()
       Me.Chart1.Series("Series1").XValueMember = "Dper "
       Me.Chart1.Series("Series1").YValueMembers = "Total"

(08-08-18, 10:02 PM)هذا أجراء مخزن كتب :

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       lodeData()
   End Sub
   Private Sub lodeData()
       Me.Chart1.DataSource = GetData()
       Me.Chart1.Series("Series1").XValueMember = "Dper "
       Me.Chart1.Series("Series1").YValueMembers = "Total"
   End Sub

   Private Function GetData() As DataTable
       Dim dtChart As New DataTable()

       Dim connCart As New SqlConnection("Data Source=.;Initial Catalog=DB_Dat;Integrated Security=True")


       Dim cmd As New SqlCommand("Usp_Chart", connCart)
       cmd.Connection = connCart
       cmd.CommandType = CommandType.StoredProcedure
       connCart.Open()
       Dim sqldatared As SqlDataReader = cmd.ExecuteReader()
       dtChart.Load(sqldatared)


       Return dtChart
   End Function

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       lodeData()
   End Sub