主题：[求助]必须为非负值并小于集合大小

有窗口菜单：

 

此主题相关图片如下：1.png

 

打开后，第一次点击菜单中“一键统计”，能够正常执行：

 

此主题相关图片如下：2.png

 

如果第二次点击“一键统计”，出现如下错误：

 

此主题相关图片如下：3.png

 

菜单中“一键统计”代码如下：

Dim sfz As String = e.Form.Controls("ComboBox1").text
        If sfz = "" Then
            MessageBox.Show("【批号】为空,请重新录入!","提示")
            Return
        End If
        Dim dr1 As DataRow
        dr1 = DataTables("入库总表").SQLFind("批号 = '" & sfz & "'And 过账 = 1")
        If dr1 IsNot Nothing Then
            MessageBox.Show("已【过账】入库总表,不允许修改!","提示")
            Return
        Else
            DataTables("入库总表").deletefor("批号 = '" & sfz & "'") ’好像问题出在这一句上了
        End If
       
        For Each nm As String In DataTables("入库明细表").SQLGetValues("产品代码","产量合计 > 0  and 批号 = '" & sfz & "'")
            Dim dr As DataRow = DataTables("入库总表").AddNew()
            dr("批号") = sfz
            dr("产品代码") = nm
            dr("产量合计") = DataTables("入库明细表").sqlCompute("Sum(产量合计)","[产品代码] = '" & dr("产品代码") & "'and [批号] = '" & sfz & "'")
        Next
        Dim Result As DialogResult
        Result = MessageBox.Show("已【重算】是否保存?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If Result = DialogResult.Yes Then
            DataTables("入库总表").Save()
        Else
            DataTables("入库总表").RejectChanges()
        End If

 

请老师帮忙看一下，哪里出错了，谢谢！

 

这个是bug，等待新版修复

哪怎么办呢？

这个2天就有新版发布了

我将 DataTables("入库总表").deletefor("批号 = '" & sfz & "'") ’好像问题出在这一句上了

 

 

修改如下（正常了）：

 

 DataTables("入库总表").sqldeletefor("批号 = '" & sfz & "'")
 DataTables("入库总表").RemoveFor("批号 = '" & sfz & "'")

          

新版已发布，更新试试