กระดานแสดงความคิดเห็น

ปรับปรุง : 2566-10-15 (กระดานแสดงความคิดเห็น)

เว็บเพจหน้านี้สำหรับผู้ดูแลเท่านั้น
รหัส secure =>	นำตัวอักษร สีขาวบนพื้นแดง มาป้อนในช่องนี้
edit_topic_password =>
<center><table width=90% border=0 bgcolor=#000080><tr><td><font color=white size=4>code ที่เรียนเรื่อง tree view กับ อ.ธนัท(นิมิตร) ผุดกระจ่าง</td></tr></table><table width=90% bordercolor=#000080 border=1><tr><td bgcolor=white><br>code ใน VB.NET<br /> เกี่ยวกับ Tree กับ Data Grid กับ Combo Box<br /> <br /> Option Strict On<br /> Option Explicit On<br /> Imports System<br /> Imports System.Data.SqlClient<br /> Public Class frmtree<br /> <br /> Private Sub frmtree_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Call loaddata()<br /> Call addcoltocombo()<br /> Call adddatatotree()<br /> <br /> End Sub<br /> Private Sub loaddata()<br /> Dim mycmd As New SqlCommand<br /> mycmd = fnccmddspcust()<br /> mydataset = f11(mydataset, mycmd, mytables.customers)<br /> <br /> End Sub<br /> Private Sub addcoltocombo()<br /> For Each myrow As DataColumn In mydataset.Tables(mytables.customers).Columns<br /> cbcolumn.Items.Add(myrow.ColumnName)<br /> Next<br /> End Sub<br /> Private Sub adddatatotree()<br /> Dim mynode As New TreeNode<br /> For Each myrow As DataRow In mydataset.Tables(mytables.customers).Rows<br /> mynode = trvcustomers.Nodes.Add(myrow("customerid").ToString)<br /> Call addorder(mynode, myrow("customerid").ToString)<br /> Next<br /> End Sub<br /> Private Sub addorder(ByVal p1 As TreeNode, ByVal p2 As String)<br /> Dim mycmd As New SqlCommand<br /> mycmd = fnccmdlistorders(p2, CommandType.Text)<br /> mydataset = f11(mydataset, mycmd, mytables.orders)<br /> For Each myrow As DataRow In mydataset.Tables(mytables.orders).Rows<br /> Dim mynode As TreeNode = Nothing<br /> mynode = p1.Nodes.Add(myrow("orderid").ToString)<br /> Next<br /> End Sub<br /> Private Sub addorderdetail(ByVal p1 As TreeNode, ByVal p2 As Integer)<br /> Dim mycmd As New SqlCommand<br /> mycmd = fnccmdlistorderdetails(p2, CommandType.StoredProcedure)<br /> mydataset = f11(mydataset, mycmd, mytables.orders)<br /> For Each myrow As DataRow In mydataset.Tables(mytables.orders).Rows<br /> Dim mynode As TreeNode = Nothing<br /> mynode = p1.Nodes.Add(myrow("orderid").ToString)<br /> Next<br /> End Sub<br /> <br /> Private Sub trvcustomers_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles trvcustomers.AfterSelect<br /> Dim myorderid As Integer = CType(e.Node.Text, Integer)<br /> Dim mycmd As New SqlCommand<br /> Dim mybindingsource As New BindingSource<br /> mycmd = fnccmdlistorderdetails(myorderid, CommandType.StoredProcedure)<br /> mydataset = f11(mydataset, mycmd, mytables.orderdetails)<br /> mybindingsource.DataSource = mydataset.Tables(mytables.orderdetails)<br /> gdvdetail.DataSource = mybindingsource<br /> End Sub<br /> End Class<br /> <br><br></td></tr><tr><td align=right bgcolor=black><font color=white><small><b>จากคุณ :</b> บุรินทร์ <a href=mailto:></a><a title='202.29.78.18'>.</a><br> 05:43am (22/07/06)</font></td></tr></table></center>