5.2.2»»³ËËã·¨
µ±Á½¸öÏß·ûÓн»²æ²¿·ÖµÄʱºò¾Í±ØÐë»»³Ë£¬ÓÐʱºò»»³ËÒ»´Î¾ÍÄܹ»µ½´ïÄ¿µÄµØ£¬ÓÐʱºòÐèÒª»»³Ë¶à´Î²ÅÄܵ½´ïÄ¿µÄµØ¡£
¸ù¾Ý³öÐÐÕßÊäÈëµÄÆðµãºÍÖյ㣬ȷ¶¨³öÐÐҪѡÔñµÄÆðʼ¹«½»Õ¾µãAºÍÄ¿µÄ¹«½»Õ¾µãB¡£ËÑË÷Êý¾Ý¿â£¬²éѯվµãAºÍÕ¾µãBÖ®¼äÊÇ·ñÓÐÏàͬµÄ³µ¾¹ý£¬Èç¹ûÓÐÒ»Ìõ»ò¼¸ÌõÖ±´ïÏß·£¬Í¨¹ý±È½ÏÑ¡Ôñ¾àÀë×î¶ÌµÄ¹«½»ÏßÂ·ÍÆ¼ö¸ø³öÐÐÕß¡£Èç¹ûûÓУ¬Ôò¼ÆËãÕ¾µãAºÍÕ¾µãBÖ®¼äÓÐûÓÐÒ»¸ö¹«¹²Õ¾µãC£¬´ÓÕ¾µãC¿ÉÒÔ»»³Ëµ½´ïÕ¾µãB¡£
Õâ¾ÍÓÐÁ½ÖÖÇé¿ö£º(1)Èç¹ûÓУ¬ÊôÓÚÒ»´Î»»³Ë¡£¼ÆËãÕ¾µãAºÍ¹«¹²Õ¾µãCÖ®¼äÓÐûÓÐÏàͬµÄ¹«½»³µ¾¹ý²¢´æÈ뼯ºÏX£»Í¬Ñù£¬¼ÆËãÕ¾µãBºÍ¹«¹²Õ¾µãCÖ®¼äÓÐûÓÐÏàͬµÄ¹«½»³µ¾¹ý²¢´æÈ뼯ºÏY¡£½«ÕâÁ½¸ö¼¯ºÏ±È½Ïºó¾Í¿ÉÒԵõ½´ÓÕ¾µãA¾¹ý¹«¹²Õ¾µãCµ½´ïÕ¾µãBµÄ¹«½»Ïß·£¬ÔÚÕâЩÏß·ÖнøÐбȽϣ¬Ñ¡Ôñ¾àÀë×î¶ÌµÄÍÆ¼ö¸ø³öÐÐÕß¡££¨2£©Èç¹ûûÓй«¹²Õ¾µãC£¬¾Í³öÏÖÁËÒª»»³ËÁ½´ÎµÄÇé¿ö¡£½«¾¹ýÕ¾µãAµÄÿÌõ¹«½»Ïß·µÄËùÓÐÕ¾µã´æÈ뼯ºÏO£»Í¬Ñù£¬¾¹ýÕ¾µãBµÄÿÌõÏß·µÄËùÓÐÕ¾µã´æÈ뼯ºÏP¡£±È½ÏÕâÁ½¸ö¼¯ºÏ£¬Ïȳ˾¹ýÕ¾µãAµÄijһ·³µµ½´ïijһվµãD£¬¼ÆËãÕ¾µãDÓëÕ¾µãBÖ®¼äÓÐûÓй«¹²Õ¾µãE,Èç¹ûÓÐÔòÕ¾µãD¡¢EΪ»»³ËÕ¾µã¡£ÕâÖÖ·½°¸¿ÉÄÜÓжàÖÖ£¬±È½ÏÑ¡Ôñ¾àÀë×î¶ÌµÄÍÆ¼ö¸ø³öÐÐÕß¡£Èç¹û²»´æÔÚ¹«¹²Õ¾µãE£¬ËµÃ÷¾¹ýÁ½´Î»»³ËÎÞ·¨´ÓÕ¾µãAµ½´ïÕ¾µãB£¬Í£Ö¹ËÑË÷¼ÆËã ? Ö±´ïËã·¨£º
µ±Á½¸öÕ¾µãÖ®¼äÓÐÖ±´ïÌõ¼þµÄʱºòÊDz»ÐèÒª½øÐл»³ËµÄ£¬¿ÉÒÔͨ¹ý²éѯʵÏÖÖ±´ï£¬Ö±´ïË㷨ΪÔÚÆðʼվµãºÍÄ¿µÄÕ¾µãÑ¡ÔñÒ»Ìõ²»Óû»³ËµÄ³µ´ÎÏß·¡£ÔÚÏß·±íÖвéÕÒÆäʵվµãµÄ³µÁ¾£¬ÐγÉÏß·A£¬ÔÚÔÚÏß·±íÖвéÕÒÄ¿µÄÕ¾µã£¬ÐγÉÏß·B£¬Ïß·AºÍÏß·B½øÐбȽϣ¬µ±Ïß·AºÍÏß·BÖÐÓÐÏཻµÄ²¿·Öʱºò˵Ã÷ÓÐÖ±´ïÏß·£¬·ñÔòÎÞÖ±´ïÏß·£¬ÐèÒª»»³Ë³µ´Î¡£
ÔÚSQlÖеĴúÂëÈçÏ£º select Õ¾µã from
(select Õ¾µã from Ïß·±í) A, (select Õ¾µã from Ïß·±í) B where A.Ïß· = B.Ïß·
? Ò»´Î»»³Ë
¸ù¾ÝÖ±´ïËã·¨£¬Ëã³öÆðʼվµÄËùÓгµÁ¾ÐÅÏ¢A£¬Í¬ÑùµÄ·½Ê½Ëã³öÄ¿µÄÕ¾µãËùÓгµÁ¾ÐÅÏ¢B£¬È»ºóͨ¹ýAÓëBÔÚÏß·¾¹ýÕ¾µã±íÖнøÐбȶԣ¬ÕÒ³öAÓëBÏཻµÄ²¿·ÖC£¬ÓÉÓÚûÓÐÖ±´ïµÄ³µÁ¾£¬ËùÒÔCΪAÓëBÕ¾µãÏཻµÄÐÅÏ¢¡£Òò´Ë³Ë¿ÍÈôÐèÒª´ÓÆäʵվµãµ½´ïÄ¿µÄÕ¾µãÐèÒªÔÚÏཻÐÅÏ¢´æÔÚµÄÕ¾µãϳµ£¬²¢ÔٴγË×øB³µÁ¾ÐÅÏ¢Ëù°üº¬µÄ³µÁ¾²ÅÄܵ½´ïÄ¿µÄµØ¡£
select Õ¾µã from (
select distinct Õ¾µãfrom Ïß·±í whereÏß·ºÅ in (selectÏß·ºÅ from Ïß·¹ýÕ¾±íwhere Õ¾µã = Æðʼվµã) )A, (
select distinct Õ¾µãfrom Ïß·±í whereÏß·ºÅ in (selectÏß·ºÅ from Ïß·¹ýÕ¾±íwhere Õ¾µã = Æðʼվµã) )B
where A.stop_id= B.stop_id
¶à´Î»»³ËÖ÷ÒªËã·¨´úÂëÈçÏ£º Private Sub Command1_Click() Dim rs As New ADODB.Recordset '¾¹ýÆðµãAµÄÏß· Dim ArrS() As String Dim ArrE() As String
rs.Open \Ïß· from Ïß·¹ýÕ¾±í where Õ¾µãÃû³Æ='\& \
Set MSH(0).DataSource = rs
If rs.EOF = True Then
MsgBox \ûÓпɴïÏß·£¡\ rs.Close Exit Sub End If rs.Close Text1.Text = \
Dim intMaxCol As Integer
rs.Open \Ïß· from Ïß·¹ýÕ¾±í where Õ¾µãÃû³Æ='\& \
Set MSH(1).DataSource = rs If rs.EOF = True Then
MsgBox \ûÓпɴïÏß·£¡\ rs.Close Exit Sub End If rs.Close
Dim strFA As String Dim intFA As Integer intFA = 1
For i = 1 To MSH(0).Rows - 1
rs.Open \* from Ïß·¹ýÕ¾±í where Ïß· ='\& Trim(MSH(0).TextMatrix(i, 0)) & \Õ¾µãÐòºÅ desc\ If rs.EOF = False Then
ReDim ArrS(rs.RecordCount - 1) rs.MoveFirst
For k = 0 To rs.RecordCount - 1
ArrS(k) = Trim(rs.Fields(\Õ¾µãÃû³Æ\ rs.MoveNext Next rs.Close
For j = 1 To MSH(1).Rows - 1
If Trim(MSH(0).TextMatrix(i, 0)) = Trim(MSH(1).TextMatrix(j, 0)) Then
strFA = \³Ë×ø \Ö±´ï\
Text1.Text = Text1.Text & intFA & \ intFA = intFA + 1 strFA = \ Else
rs.Open \* from Ïß·¹ýÕ¾±í where Ïß· ='\& Trim(MSH(1).TextMatrix(j, 0)) & \Õ¾µãÐòºÅ desc\
If rs.EOF = False Then
ReDim ArrE(rs.RecordCount - 1) rs.MoveFirst
For k = 0 To rs.RecordCount - 1
ArrE(k) = Trim(rs.Fields(\Õ¾µãÃû³Æ\ rs.MoveNext Next rs.Close strFA = \
For m = 0 To UBound(ArrS) For n = 0 To UBound(ArrE) If ArrS(m) = ArrE(n) Then strFA
=
\
³Ë
×ø
\
&