INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.

Join the forum, it's quick and easy

INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Thích Bài viết này
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 2 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 2 Khách viếng thăm :: 1 Bot

Không

View the whole list


Go down
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 29
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

Tree_View Cây Dữ Liệu Empty Tree_View Cây Dữ Liệu

Fri Dec 21, 2012 11:25 am
Công Dụng: Cho Phép tạo cây gồm nhiều nút (Nodes) phân thành nhiều cấp độ khác nhau.

-Cấp trước được gọi là cấp Cha, cấp sau gọi là con (Tương tự cây thư mục của Windows).

Tạo Tree_View:

Các Bạn Vào -> ToolBox chọn tree_view và kéo thả tại Winform:

Tree_View Cây Dữ Liệu Captur10

Đặt Tên: "Name"

Lớp Lệnh:
+
Code:
<Name>.nodes.add(<Tittle>)

Ý nghĩa: Thêm nút "Tittle" vào tree_view Name

+
Code:
<name>.nodes.clear()

Ý Nghĩa: Xoá Dữ Liệu của Tree_view

Thêm Nút Con:

Code:
<name>.nodes(n).nodes.add(<Tittle>)

Tổng quát với k nút:

Code:
<name>.nodes(n1).....nodes(nk).nodes.add(<tittle>)

Một số hàm liên quan:

Code:
<Name>.SelectedNodes.Text

Trả về giá trị thông tin Nodes đã chọn.

vd: Hiện Tree_view Mã Khoa từ các bảng DMLOP, DMKHOA như sau:

Tree_View Cây Dữ Liệu Captur12

Tree_View Cây Dữ Liệu Captur13

Tree_View Cây Dữ Liệu Captur14

để làm được như vậy, ta làm như sau:

Code:
Private Sub tree_view()
        Dim t1, t2 As New DataTable
        t1 = ketnoi.xulisql("select makhoa & '-' & TENKHOA as Khoa from DMKHOA")
        Dim i, j As Integer
        Dim mk As String
        malop.Nodes.Clear()
        For i = 0 To t1.Rows.Count - 1
            malop.Nodes.Add(t1.Rows(i).Item("Khoa"))
            Dim s As String
            s = t1.Rows(i).Item("Khoa").ToString()
            mk = s.Substring(0, s.IndexOf("-"))
            t2 = ketnoi.xulisql("select malop & '-' & Tenlop as lop from DMLOP where  makhoa = '" & mk & "'")
            For j = 0 To t2.Rows.Count - 1
                malop.Nodes(i).Nodes.Add(t2.Rows(j).Item("lop"))
            Next
        Next
    End Sub

Và Tại Form_load:

Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tree_view()
    End Sub

Để Hiển thị dữ liệu trên các textbox khi click và Tree_view:

Tree_View Cây Dữ Liệu Captur15

Code:
Private Sub malop_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles malop.AfterSelect
        Dim ma, ten, s As String
        s = malop.SelectedNode.Text
        ma = s.Substring(0, s.IndexOf("-"))
        Dim n As Integer
        n = s.IndexOf("-")
        ten = s.Substring(s.IndexOf("-") + 1, s.Length - n - 1)
        Dim dt As DataTable
        TENKHOA.Text = ten
        dt = ketnoi.xulisql("select malop, tenlop, svhientai, svtoida,muchocphi from DMKHOA a, DMLOP b where malop = '" & ma & "'")
        If dt.Rows.Count > 0 Then
            TENLOP.Text = dt.Rows(0).Item("TENLOP")
            SVHIENTAI.Text = dt.Rows(0).Item("SVHIENTAI")
            MUCHOCPHI.Text = dt.Rows(0).Item("MUCHOCPHI")
            SVTOIDA.Text = dt.Rows(0).Item("SVTOIDA")
        End If

    End Sub

Phần Kết Nối các bạn xem tại [You must be registered and logged in to see this link.]

Chúc Các Bạn Thành Công.

Thanh Nguyên

_________________
Thanh Nguyên Store

[You must be registered and logged in to see this link.]
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết