- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 为什么win10系统中出错？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144304)
-- 发布时间：2019/12/16 19:55:00
-- 为什么win10系统中出错？
我编写了一个应用，在win7系统中运行没问题，但在win10系统中就不能正常运行，总报错，为什么？怎么解决？具体报错信息参见附件。
此主题相关图片如下：报错.png
-- 发布时间：2019/12/16 20:09:00
--
做什么操作引起的错误？写了什么代码？
-- 发布时间：2019/12/21 12:35:00
--
大概显示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()
Next
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
Next
End If
ylz(kuadunum - 4) = 0
If kuadunum < 34 Then
For j2 As Integer = kuadunum - 3 To 30
ylz(j2) = ylz(j2) + 1
Next
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
Next
End If
Next
-- 发布时间：2019/12/21 13:49:00
--
只是赋值不可能有问题的。应该是表事件有问题。