为什么win10系统中出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大概显示100~200条记录时就出现上述故障。

下面是代码：

Dim nbox As WinForm.NumericComboBox

Dim ylz(30) As Integer

Dim xsqs,kuadunum,xshwz As Integer

Dim rnuml As Integer = Tables("大乐透跨度表").Rows.Count

With Tables("大乐透跨度表")

For k As Integer = rnuml To 1 Step -1

.Rows(k -1).Delete()

End With

nbox = e.Form.Controls("NumBox1")

xsqs = nbox.Value

xshwz = 0

Dim rnumb As Integer = Tables("大乐透已开奖号码组合").Rows.Count

For i As Integer = 1 To rnumb

Dim r As Row = Tables("大乐透已开奖号码组合").Rows(i - 1)

kuadunum = r("跨度")

If kuadunum > 4 Then

For j1 As Integer = 0 To kuadunum - 5

ylz(j1) = ylz(j1) + 1

End If

ylz(kuadunum - 4) = 0

If kuadunum < 34 Then

For j2 As Integer = kuadunum - 3 To 30

ylz(j2) = ylz(j2) + 1

End If

If i >= rnumb - xsqs + 1 Then

Dim r1 As Row = Tables("大乐透跨度表").AddNew()

r1("开奖期号") = r("开奖期号")

r1("k4") = ylz(0)

r1("k5") = ylz(1)

r1("k6") = ylz(2)

r1("k7") = ylz(3)

r1("k8") = ylz(4)

r1("k9") = ylz(5)

r1("k10") = ylz(6)

r1("k11") = ylz(7)

r1("k12") = ylz(8)

r1("k13") = ylz(9)

r1("k14") = ylz(10)

r1("k15") = ylz(11)

r1("k16") = ylz(12)

r1("k17") = ylz(13)

r1("k18") = ylz(14)

r1("k19") = ylz(15)

r1("k20") = ylz(16)

r1("k21") = ylz(17)

r1("k22") = ylz(18)

r1("k23") = ylz(19)

r1("k24") = ylz(20)

r1("k25") = ylz(21)

r1("k26") = ylz(22)

r1("k27") = ylz(23)

r1("k28") = ylz(24)

r1("k29") = ylz(25)

r1("k30") = ylz(26)

r1("k31") = ylz(27)

r1("k32") = ylz(28)

r1("k33") = ylz(29)

r1("k34") = ylz(30)

xshwz = xshwz + 1

For k As Integer = 0 To 30

If ylz(k) = 0 Then

kuadu(xshwz - 1,k + 1) = kuadunum

End If

主题：为什么win10系统中出错？