VB ´ó寫×ÖĸÅÅÐò

Private Sub Command5_Click()
    Dim x3()
ReDim Arr3(1 To 26)
    For i = 1 To 26
        x3(i) = Chr(64 + i)
    Next

這ÊÇ°´ÕÕ´ó寫×Öĸ×Ô動ÅÅÐòµÄ£¬ÏÂÃæÊÇÎÒ×Ô¼ºµÄ´ú碼ÐèÒª這²¿·ÖÏÈ·´ÍƳö當Ç°iÖµ£¬Çói+1Ò²¾ÍÊÇÏÂÒ»個µÄ×Öĸ
      strRST_SQL = "Select sm002,sm003,max(sm006) from dgmocsm where sm003='" & Trim(Text1(2).Text) & "' and sm002='秨祇穝¼Ò' group by sm002,sm003 "
        Call SetRSTReadOnly(strRST_SQL)
        If rst.RecordCount > 0 Then
            x = rst.Fields(2).Value
            strRST_SQL = "Select sm002,sm003,max(sm006) from dgmocsm where sm003='" & Trim(Text1(2).Text) & "' and sm002='秨祇´«' group by sm002,sm003 "
            Call SetRSTReadOnly(strRST_SQL)
              If rst.RecordCount > 0 Then
                x1 = Right(rst.Fields(2).Value, Len(rst.Fields(2).Value - Len(x & "-")))
                x1 = x3(i)
            Èç