然后创建两个数据集并且创建一些变量来帮助跟蹤在这些数据集中的位置
Dim ds As New DataSet
Dim ds As New DataSet
Dim position As Integer
Dim offset As Integer
Dim rows As DataRowCollection
接下来使用sqlstring I中的第一个SQL查询的结果填满适配器该查询返回有序的整个联盟表然后逐个位置地遍历这个表直到找到匹配Wrox United的项将这个位
置保存到变量position中
这儿必须符合三种情况
黄金情况Wrox United在最顶端需要显示第二位和的第三位的队伍
世界末日情况Wrox United位于底部需要显示在它上面的两个队伍
通常的情况Wrox United不在顶端也不在底部而在中间的某个位置在这种一情况下显示在它上面的一个队伍以及在它下面的一个队伍
[] [] [] [] [] []