评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

公交车查询系统+vb(一)毕业论文(7)

2013-05-09 18:15 sp;     End With
        Case Cbe.Text
            With MSF1(2)
            .Rows = .Rows + 1
            For j = 1 To mrc3.Fields.Count
             If mrc3.Fields(j - 1) <> "Null" Then
              .TextMatrix(.Row, j - 1) = mrc3.Fields(j - 1)
              End If
            Next
            .Row = .Row + 1
            End With
     End Select
 Next
   mrc3.MoveNext
 Loop
 
 For k = 0 To MSF1(1).Rows - 1
    For t = 0 To mrc3.Fields.Count - 1
       strs = MSF1(1).TextMatrix(k, t)
       If strs = "" Then
           Exit For
        End If
        If finnum = 0 Then
        ReDim finishst(finnum)
          finishst(0) = strs
        Else
         For c = 0 To finnum
               If strs = finishst(c) Then
                   Exit For （科教范文网 lw.AsEac.com编辑整理）
               End If
        Next
         If c > finnum Then
             ReDim Preserve finishst(finnum)
             finishst(finnum) = strs