Hàm tìm bao đóng viết bằng vb.net! anh em xem thử có gì sai sót thì nhắc mình nhé!
Shared Function timbaodong(ByVal str As String)
Dim qh As DataTable
Dim pth As DataTable
qh = ketnoi.sql("select * from ldqh") 'lay ra các luoc do quan he
pth = ketnoi.sql("select * from dm_pthpq") 'tap pth cua cac luoc do qh
Dim co(100) As Boolean 'bien co kiem tra pth da xet hay chua
Dim i
For i = 0 To pth.Rows.Count - 1 'ban dau thi tat ca cac pth deu chua dc xet
co(i) = True
Next
Dim kt = True 'kiem tra xem trong lan duyet dó bao dong có đc them vao thuoc tinh moi hay ko?
While kt = True
kt = False
For i = 0 To pth.Rows.Count - 1
If co(i) = True And chuoi_chua_chuoi(str, pth.Rows(i).Item("vt")) = True Then
str = noichuoi(str, pth.Rows(i).Item("vp")) 'hop chuoi
kt = True
co(i) = False
End If
Next
End While
Return str 'kq bao đóng
End Function
--------------------------------------http://muckich.blogspot.com/----------------------------------------
