重复代码求精简~高分送上

Question

 1=============================================================================
   Select Case Index
     Case 0
      If .Fields(2) = "A" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 1
      If .Fields(2) = "B" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 2
      If .Fields(2) = "C" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 3
      If .Fields(2) = "D" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 4
      If .Fields(2) = "E" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 5
      If .Fields(2) = "F" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 6
      If .Fields(2) = "G" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 7
      If .Fields(2) = "H" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 8
      If .Fields(2) = "I" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 9
      If .Fields(2) = "J" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 10
      If .Fields(2) = "K" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 11
      If .Fields(2) = "L" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 12
      If .Fields(2) = "M" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 13
      If .Fields(2) = "N" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 14
      If .Fields(2) = "O" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 15
      If .Fields(2) = "P" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 16
      If .Fields(2) = "Q" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 17
      If .Fields(2) = "R" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 18
      If .Fields(2) = "S" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 19
      If .Fields(2) = "T" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 20
      If .Fields(2) = "U" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 21
      If .Fields(2) = "V" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 22
      If .Fields(2) = "W" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 23
      If .Fields(2) = "X" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 24
      If .Fields(2) = "Y" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
     Case 25
      If .Fields(2) = "Z" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
    End Select2==================================================================================
    Select Case Index
     Case 0
      If .Fields(1) = "单机游戏" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "单机游戏(" & ListView1.ListItems.Count & ")"
     Case 1
      If .Fields(1) = "网络游戏" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "网络游戏(" & ListView1.ListItems.Count & ")"
     Case 2
      If .Fields(1) = "休闲游戏" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "休闲游戏(" & ListView1.ListItems.Count & ")"
     Case 3
      If .Fields(1) = "聊天冲浪" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "聊天冲浪(" & ListView1.ListItems.Count & ")"
     Case 4
      If .Fields(1) = "棋牌对战" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "棋牌对战(" & ListView1.ListItems.Count & ")"
     Case 5
      If .Fields(1) = "金融证卷" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "金融证卷(" & ListView1.ListItems.Count & ")"
     Case 6
      If .Fields(1) = "辅助工具" Then ListView1.ListItems.Add , , (.Fields(3).Value), i
      Label1.Caption = "辅助工具(" & ListView1.ListItems.Count & ")"
    End Select

Answer 1

把"a,b,c,d..."还有什么"辅助工具,金融证卷..."之类的都扔到数组里头去,
然后上面的代码就能放在循环里逐个比较了,不要告诉我你不会哦,要是会的话要结贴给分哦.

Answer 2

全是数组...A-Z command2数组 辅助工具,金融证卷..."是command1数组
真不会,求指教.有用立马结贴给分.

Answer 3

If .Fields(2) = chr(65+index) Then ListView1.ListItems.Add , , (.Fields(3).Value), i

Answer 4

数组
If .Fields(1) = argGame(index) Then ListView1.ListItems.Add , , (.Fields(3).Value), i
  Label1.Caption = argGame(index) & "(" & ListView1.ListItems.Count & ")"

Answer 5

1:
Private Sub Command2_Click(Index As Integer)
 Adodc1.RecordSource = "Select * From Data1"
 Adodc1.Refresh
 ListView1.ListItems.Clear
 ListView1.Icons = Nothing
 ImageList1.ListImages.Clear
 
 With Adodc1.Recordset
  If .RecordCount > 0 Then
   .MoveFirst
  End If
  Do While Not .EOF
   Set aIcon = GetAppIcon(.Fields(3).Value + .Fields(6).Value, bIcon)
   If bIcon <> 0 Then
    i = i + 1
    ImageList1.ListImages.Add i, , aIcon
    ListView1.Icons = ImageList1============ 
For j = 0 To 25
If .Fields(2) = Chr(65 + j) Then ListView1.ListItems.Add , , (.Fields(3).Value), i
Next
============或
If .Fields(2) = Chr(65 + index) Then ListView1.ListItems.Add , , (.Fields(3).Value), i
Next
============
   Else
   End If
   .MoveNext
  Loop
 End With
End Sub都不行啊 点击A-Z按钮没数据

Answer 6

感谢 这个可以了
If .Fields(2) = chr(65+index) Then ListView1.ListItems.Add , , (.Fields(3).Value), i这里不行 argGame是啥啊
If .Fields(1) = argGame(index) Then ListView1.ListItems.Add , , (.Fields(3).Value), i
  Label1.Caption = argGame(index) & "(" & ListView1.ListItems.Count & ")"

Answer 7

If .Fields(1) = Command1(Index) Then ListView1.ListItems.Add , , (.Fields(2).Value), iIf .Fields(1) = argGame(index) Then ListView1.ListItems.Add , , (.Fields(2).Value), i
都不行啊

Answer 8

If .Fields(2) = Chr(65+index) Then ListView1.ListItems.Add , , (.Fields(3).Value), it = Array("单机游戏","网络游戏","休闲游戏","聊天冲浪","棋牌对战","金融证卷","辅助工具")
If .Fields(1) = t(Index) Then ListView1.ListItems.Add , , (.Fields(3).Value), i
Label1.Caption = t(Index) & "(" & ListView1.ListItems.Count & ")"

Answer 9

完整代码
Private Sub Command1_Click(Index As Integer)
 Adodc1.RecordSource = "Select * From Data1"
 Adodc1.Refresh
 ListView1.ListItems.Clear
 ListView1.Icons = Nothing 
 ImageList1.ListImages.Clear  With Adodc1.Recordset
  If .RecordCount > 0 Then .MoveFirst
  Do While Not .EOF
   Set aIcon = GetAppIcon(.Fields(3).Value + .Fields(6).Value, bIcon)
   If bIcon <> 0 Then
    i = i + 1
    ImageList1.ListImages.Add i, , aIcon
    ListView1.Icons = ImageList1
    Select Case Index
     Case 0
      If .Fields(0) = "单机游戏" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "单机游戏(" & ListView1.ListItems.Count & ")"
     Case 1
      If .Fields(0) = "网络游戏" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "网络游戏(" & ListView1.ListItems.Count & ")"
     Case 2
      If .Fields(0) = "休闲游戏" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "休闲游戏(" & ListView1.ListItems.Count & ")"
     Case 3
      If .Fields(0) = "聊天冲浪" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "聊天冲浪(" & ListView1.ListItems.Count & ")"
     Case 4
      If .Fields(0) = "棋牌对战" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "棋牌对战(" & ListView1.ListItems.Count & ")"
     Case 5
      If .Fields(0) = "金融证卷" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "金融证卷(" & ListView1.ListItems.Count & ")"
     Case 6
      If .Fields(0) = "辅助工具" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "辅助工具(" & ListView1.ListItems.Count & ")"
    End Select
   End If
   .MoveNext
  Loop
 End With
End Sub
==================================================
把以下
    Select Case Index
     Case 0
      If .Fields(0) = "单机游戏" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "单机游戏(" & ListView1.ListItems.Count & ")"
     Case 1
      If .Fields(0) = "网络游戏" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "网络游戏(" & ListView1.ListItems.Count & ")"
     Case 2
      If .Fields(0) = "休闲游戏" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "休闲游戏(" & ListView1.ListItems.Count & ")"
     Case 3
      If .Fields(0) = "聊天冲浪" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "聊天冲浪(" & ListView1.ListItems.Count & ")"
     Case 4
      If .Fields(0) = "棋牌对战" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "棋牌对战(" & ListView1.ListItems.Count & ")"
     Case 5
      If .Fields(0) = "金融证卷" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "金融证卷(" & ListView1.ListItems.Count & ")"
     Case 6
      If .Fields(0) = "辅助工具" Then ListView1.ListItems.Add , , (.Fields(2).Value), i
      Label1.Caption = "辅助工具(" & ListView1.ListItems.Count & ")"
    End Select精简为If .Fields(1) = Command1(Index) Then ListView1.ListItems.Add , , (.Fields(2).Value), i
或
If .Fields(1) = argGame(index) Then ListView1.ListItems.Add , , (.Fields(2).Value), i都不行啊