|
IfMSF1(1).TextMatrix(s, r) = "" Then 内容来自论文无忧网 www.paper51.com Exit For paper51.com End If http://www.paper51.com MSF1(0).TextMatrix(rs, r) = MSF1(1).TextMatrix(s, r) 内容来自www.paper51.com Next copyright paper51.com rs = rs + 1 paper51.com End If 内容来自论文无忧网 www.paper51.com Next paper51.com MSF1(0).Refresh paper51.com Else paper51.com intpart = MSF1(1).Rows copyright paper51.com
ReDimalloks(MSF1(1).Rows + MSF1(2).Rows) 内容来自www.paper51.com
MSF1(0).Clear http://www.paper51.com MSF1(0).Rows = MSF1(1).Rows + MSF1(2).Rows http://www.paper51.com For k = 0To MSF1(1).Rows - 1 copyright paper51.com intcount = 9999 内容来自论文无忧网 www.paper51.com bfin = False copyright paper51.com For t = 0 To NC + 2 内容来自论文无忧网 www.paper51.com
IfMSF1(1).TextMatrix(k, t) = "" Then copyright paper51.com
Exit For 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com MSF1(0).TextMatrix(k,t) = MSF1(1).TextMatrix(k, t) http://www.paper51.com
If bfin = False Then paper51.com
If cbs.Text =MSF1(1).TextMatrix(k, t) Or Cbm.Text = MSF1(1).TextMatrix(k, t) Then 内容来自论文无忧网 www.paper51.com If intcount = 9999 Then paper51.com intcount = 0 http://www.paper51.com Else http://www.paper51.com intcount = intcount + 1 paper51.com bfin = True 内容来自www.paper51.com
End If copyright paper51.com
Else 内容来自论文无忧网 www.paper51.com If intcount <> 9999 Then copyright paper51.com intcount = intcount + 1 内容来自论文无忧网 www.paper51.com
End If paper51.com End If 内容来自论文无忧网 www.paper51.com End If paper51.com
Next http://www.paper51.com MSF1(0).TextMatrix(k, NC+ 2) = MSF1(1).TextMatrix(k, NC + 2) 内容来自论文无忧网 www.paper51.com
alloks(oksn) = intcount 内容来自论文无忧网 www.paper51.com
oksn = oksn + 1 内容来自www.paper51.com If intcount < intmin Then copyright paper51.com intmin = intcount http://www.paper51.com End If 内容来自www.paper51.com Next 内容来自论文无忧网 www.paper51.com MSF1(1).Clear http://www.paper51.com
rs= 1 copyright paper51.com With MSF1(1) 内容来自论文无忧网 www.paper51.com
.TextMatrix(0, 1) = "车次" http://www.paper51.com For k = 1 To NC + 1 paper51.com .TextMatrix(0, k + 1) = "站" & CStr(k) 内容来自www.paper51.com Next copyright paper51.com .TextMatrix(0, NC + 2) = "备注" copyright paper51.com End With 内容来自论文无忧网 www.paper51.com
Fors = 0 To intpart - 1 内容来自www.paper51.com Ifalloks(s) = intmin Then 内容来自www.paper51.com For r = 0 To NC + 4 http://www.paper51.com If MSF1(0).TextMatrix(s, r) = "" Then paper51.com Exit For copyright paper51.com End If copyright paper51.com MSF1(1).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) http://www.paper51.com Next copyright paper51.com rs = rs + 1 http://www.paper51.com
End If copyright paper51.com Next 内容来自www.paper51.com MSF1(1).Refresh 内容来自论文无忧网 www.paper51.com
intmin = 9999 copyright paper51.com
For k = 0 ToMSF1(2).Rows - 1 http://www.paper51.com intcount = 9999 http://www.paper51.com bfin = False 内容来自论文无忧网 www.paper51.com For t = 0 To NC + 2 内容来自论文无忧网 www.paper51.com IfMSF1(2).TextMatrix(k, t) = "" Then paper51.com Exit For paper51.com
End If copyright paper51.com
MSF1(0).TextMatrix(k +MSF1(1).Rows, t) = MSF1(2).TextMatrix(k, t) 内容来自www.paper51.com If bfin = False Then 内容来自www.paper51.com If Cbe.Text =MSF1(2).TextMatrix(k, t) Or Cbm.Text = MSF1(2).TextMatrix(k, t) Then 内容来自论文无忧网 www.paper51.com If intcount = 9999 Then 内容来自论文无忧网 www.paper51.com
intcount = 0 内容来自www.paper51.com Else paper51.com
intcount = intcount + 1 内容来自论文无忧网 www.paper51.com bfin = True 内容来自www.paper51.com
End If paper51.com Else http://www.paper51.com
If intcount <> 9999 Then http://www.paper51.com intcount = intcount + 1 内容来自www.paper51.com
End If 内容来自www.paper51.com End If http://www.paper51.com End If 内容来自论文无忧网 www.paper51.com Next copyright paper51.com MSF1(0).TextMatrix(k,NC + 2) = MSF1(2).TextMatrix(k, NC + 2) 内容来自www.paper51.com alloks(oksn) = intcount paper51.com oksn = oksn + 1 http://www.paper51.com If intcount < intmin Then paper51.com
intmin = intcount 内容来自www.paper51.com
End If paper51.com Next paper51.com MSF1(2).Clear paper51.com With MSF1(2) 内容来自论文无忧网 www.paper51.com .TextMatrix(0, 1) = "车次" 内容来自www.paper51.com For k = 1 To NC + 1 内容来自论文无忧网 www.paper51.com .TextMatrix(0, k + 1) = "站" & CStr(k) 内容来自www.paper51.com Next paper51.com .TextMatrix(0, NC + 2) = "备注" copyright paper51.com End With 内容来自www.paper51.com rs= 1 http://www.paper51.com
Fors = intpart To MSF1(1).Rows + MSF1(2).Rows - 1 copyright paper51.com Ifalloks(s) = intmin Then copyright paper51.com
For r = 0 To NC + 4 paper51.com If MSF1(0).TextMatrix(s, r) = "" Then http://www.paper51.com Exit For http://www.paper51.com
内容来自论文无忧网 www.paper51.com |