发生无法处理的异常错误
此主题相关图片如下：qq图片20170111015327.png
Dim arys1 As List(of String) = DataTables(cmb1.text).GetValues(zd1(cmbdx(0).text)) '记录第一分组列下有多少个不同值
Dim uuu As Integer = arys1.count-1
For kkk As Integer = val To 999+ val
If kkk > uuu Then
Return
End If
Dim na As String = arys1(kkk)
'For Each na As String In arys1
（如果只是运行时建立1000个表，程序能正常，再多时就会出现图片上的错误。关闭程序后可以再次运行这个集合下一个1000多个表，通过反复关闭程序后再运行不会出现错误，就是不能一次全部运行完，也就是如arys1这个集合只有1000个元素是可以的，但多了就会出错，关闭程序分批计算不会出错）
'建一个临时表,每一个表就作一个图
Dim dtb As New DataTableBuilder("作图")
dtb.AddDef(hg1, Gettype(String), 32)
For Each nayy1 As String In nay
dtb.AddDef(nayy1, Gettype(Single))
Next
dtb.build
Dim huh As String=""
Dim drs As new List(of DataRow)
drs = DataTables(cmb1.text).Select("[" & hg1 & "]='" & na & "'")
For Each dr As DataRow In drs
Dim r As Row = Tables("作图").AddNew
r(hg1) = dr(hg19)
For Each na1 As String In nay
r(na1) = dr(na1) '作图表中加选择的列的数据
Next
If huh ="" And hg20 <> "" Then
huh = dr(tyt)
End If
Next
加好友 
发短信
Post By：2017/1/11 2:00:00 [只看该作者]
