如图，怎么设置客队的数据源为(主队数据源-主队当前记录listindex)
例如，主队选择了队魂杰拉德,客队的数据源就比主队数据源少一个队魂杰拉德的选项。
这个是主队的数据源代码
Set Combo1.DataSource = RstWj
For i = 1 To Countlun
Combo1.AddItem RstWj.Fields(1)
RstWj.MoveNext
If RstWj.EOF Then Exit For
Next

本人新手，上面的代码中countlun就是rstwj.recoradcount

在线等了两个小时，没有音迅。。。。

全部使用txt文件记录。
代码:
Private sub Form_Load
combo1.List.Clear
Dim temp as string
Open App.Path & "\所有队伍.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Combo1.List.AddItem temp
Loop
Close #1
End sub
private sub Combo1_Change
combo2.List.Clear
Dim temp as string
Open App.Path & "\所有队伍.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
if temp>< combo1.text then
Combo1.List.AddItem temp
end if
Loop
Close #1
end sub