sql = strSql myCon = New MySqlConnection myCon.ConnectionString = strConn myCon.Open() myDa = New MySqlDataAdapter(strSql, myCon) myDs = New DataSet myDs.Clear() myDa.Fill(myDs, "OPD") dgvData.DataSource = myDs.Tables("OPD") Dim chart As Boolean = True Dim ChartArea1 As ChartArea = New ChartArea() Dim Legend1 As Legend = New Legend() Dim Series1 As Series = New Series() Dim Chart1 = New Chart() Me.Controls.Add(Chart1) ChartArea1.Name = "ChartArea1" Chart1.ChartAreas.Add(ChartArea1) Legend1.Name = "Legend1" Chart1.Legends.Add(Legend1) Chart1.Location = New System.Drawing.Point(280, 119) Chart1.Name = "Chart1" Series1.ChartArea = "ChartArea1" Series1.Legend = "Legend1" Series1.Name = "จำนวน" Chart1.Series.Add(Series1) Chart1.Size = New System.Drawing.Size(595, 220) Chart1.TabIndex = 0 Chart1.Text = "Chart1" Chart1.Series("จำนวน").XValueMember = "icd10" 'รหัสโรค Chart1.Series("จำนวน").YValueMembers = "cicd10" 'จำนวน Chart1.DataSource = myDs.Tables("OPD")
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง