以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  索引超出了数组界限。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130059)

--  作者：mxl810823 --  发布时间：2019/1/11 20:55:00 --  索引超出了数组界限。 Dim drs As List(of DataRow) = DataTables("roaster").SQLSelect("onumber =  \'" & e.Table.current ("onumber") & "\'") If drs IsNot Nothing Then     DataTables("aaa").DeleteFor("[acceptdate] > #2/1/2007#")     Dim i As Integer = 0     Dim da As DataRow MessageBox.show( "\'& dr &\'")     For Each dr As DataRow In drs         da = DataTables("aaa").DataRows(i)         For Each dc As DataCol In DataTables("aaa").DataCols             da(dc.name) = dr(dc.name)         Next         i = i + 1     Next End If 执行到messagebox之后就会出错“索引超出了数组界限。”为什么？？？

--  作者：有点蓝 --  发布时间：2019/1/11 21:07:00 --   Dim drs As List(of DataRow) = DataTables("roaster").SQLSelect("onumber =  \'" & e.Table.current ("onumber") & "\'") If drs.Count > 0 Then     DataTables("aaa").DeleteFor("[acceptdate] > #2/1/2007#")     Dim da As DataRow     For Each dr As DataRow In drs         da = DataTables("aaa").AddNew         For Each dc As DataCol In DataTables("aaa").DataCols             da(dc.name) = dr(dc.name)         Next     Next End If

--  作者：mxl810823 --  发布时间：2019/1/11 22:16:00 --   修改了还是一样的提示“”索引超出了数组界限。“”

--  作者：mxl810823 --  发布时间：2019/1/11 22:19:00 --   可以了，谢谢。是我搞错了。改了是对的