Tables("BDS").sort = "BH" '判断最终数字的"单"或"双"
Dim i As Integer = Tables("BDS").rows.count - 1
if i > = 0 and i < = 9 then 'i是0-9时不判断
Tables("BDS").Rows(i)("G0") = 0
end if
if i > 9 then
If Tables("BGS").Rows(i)("G0") >= 6 Then '判断G0列是单或双
If Tables("BWY").Rows(i)("G0") Mod 2 = 0 Then
If Tables("KJH").Rows(i)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G0") = 2
Else
Tables("BDS").Rows(i)("G0") = 1
End If
Else
If Tables("KJH").Rows(i)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G0") = 1
Else
Tables("BDS").Rows(i)("G0") = 2
End If
End If
Else
If Tables("BWY").Rows(i)("G0") Mod 2 = 0 Then
If Tables("KJH").Rows(i)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G0") = 1
Else
Tables("BDS").Rows(i)("G0") = 2
End If
Else
If Tables("KJH").Rows(i)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G0") = 2
Else
Tables("BDS").Rows(i)("G0") = 1
End If
End If
End If
end if
if i > 10 then
If Tables("BGS").Rows(i)("G1") >= 6 Then '判断G1列是单或双
If Tables("BWY").Rows(i)("G1") Mod 2 = 0 Then
If Tables("KJH").Rows(i-1)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G1") = 2
Else
Tables("BDS").Rows(i)("G1") = 1
End If
Else
If Tables("KJH").Rows(i-1)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G1") = 1
Else
Tables("BDS").Rows(i)("G1") = 2
End If
End If
Else
If Tables("BWY").Rows(i)("G1") Mod 2 = 0 Then
If Tables("KJH").Rows(i-1)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G1") = 1
Else
Tables("BDS").Rows(i)("G1") = 2
End If
Else
If Tables("KJH").Rows(i-1)("BW") Mod 2 = 0 Then
Tables("BDS").Rows(i)("G1") = 2
Else
Tables("BDS").Rows(i)("G1") = 1
End If
End If
End If
end if
然后是if i > 11 求[G2]列的值
......
一直到if i >109 求[G100]列的值， 重复执行上面的代码，其中涉及到从三个表“KJH" "BWY" "BGS”中相应的值，最终用1和2表示单或双，并将值赋在"BDS"里，有些乱，整个代码就是上面的101次重复。
[此贴子已经被作者于2014-3-5 18:24:03编辑过]
加好友 
发短信
Post By：2014/3/5 16:33:00 [显示全部帖子]
