公交车查询系统+vb(七)

公交车查询系统+vb(七) 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
               End If
        Next
         If c > finnum Then
             ReDim Preserve finishst(finnum)
             finishst(finnum) = strs
 

首页 上一页 4 5 6 7 下一页 尾页 7/7/7

公交车查询系统+vb(七)由毕业论文网（www.huoyuandh.com）会员上传。