home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Grid-X9_(_2159668102009.psc / Main / DataServer.bas < prev    next >
BASIC Source File  |  2006-12-26  |  2KB  |  44 lines
  1. Attribute VB_Name = "DataServer"
  2. Public IndexChr(26) As String
  3.  
  4. Public Function RecSrchGrid(IndexX As Long, TxtSaring As String, Optional Record As Long, Optional Search As Boolean) As Boolean
  5. Dim tmpTxtSaring As String
  6. Dim tmpIndexChr As Long, OverAll As Boolean
  7. Dim Rn As Integer
  8.  
  9. tmpTxtSaring = UCase(left(TxtSaring, 1))
  10. For XY = 1 To 26
  11.     If OverAll = True Then nForm(2).CBGrid.M0_Value(1, XY - 1) = nForm(2).CBGrid.M0_Value(1, XY - 1) + 1
  12.     If tmpTxtSaring = IndexChr(XY) Then
  13.         For Z = nForm(2).CBGrid.M0_Value(1, XY - 1) To _
  14.         Val(nForm(2).CBGrid.M0_Value(1, XY - 1)) + nForm(2).CBGrid.M0_Value(2, XY - 1)
  15.             Rn = nForm(2).CBGrid.M0_Value(1, XY - 1)
  16.             If nForm(1).CBGrid.M0_Value(IndexX, Z) = TxtSaring Then
  17.                 RecSrchGrid = True
  18.                 Record = Z
  19.                 Exit For
  20.             End If
  21.         Next Z
  22.         If RecSrchGrid = True Then Exit For
  23.         If Search = False Then
  24.             nForm(2).CBGrid.M0_Value(2, XY - 1) = nForm(2).CBGrid.M0_Value(2, XY - 1) + 1
  25.             OverAll = True
  26.         Else
  27.             Exit Function
  28.         End If
  29.     End If
  30. Next XY
  31. If RecSrchGrid = False Then Record = Rn
  32. End Function
  33.  
  34. Function RecRemoveIndex(TxtSaring As String, Optional ValStr As Boolean)
  35.     TxtSaring = UCase(left(TxtSaring, 1))
  36.     For XY = 1 To nForm(2).CBGrid.CountY
  37.         If OverAll = True Then nForm(2).CBGrid.M0_Value(1, XY - 1) = nForm(2).CBGrid.M0_Value(1, XY - 1) - 1
  38.         If TxtSaring = IndexChr(XY) Then
  39.             nForm(2).CBGrid.M0_Value(2, XY - 1) = nForm(2).CBGrid.M0_Value(2, XY - 1) - 1
  40.             OverAll = True
  41.         End If
  42.     Next XY
  43. End Function
  44.