- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 索引1不是负数就是大于行数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60961)
-- 发布时间：2014/12/4 14:45:00
-- 索引1不是负数就是大于行数
此主题相关图片如下：1.bmp
请问一下 这种错误一般是怎么造成的？错误不是一种都存在的。
[此贴子已经被作者于2014-12-4 14:45:20编辑过]
-- 发布时间：2014/12/4 14:46:00
--
你执行什么操作的时候出现这个错误呢?
-- 发布时间：2014/12/4 14:46:00
--
你执行什么操作的时候报错的？
先升级到最新版。
-- 发布时间：2014/12/4 14:51:00
--
我执行的是关闭窗口
按钮代码为
DataTables("工资主表").RejectChanges()
e.Form.Close
Afterclose 事件代码
DataTables("表D").DeleteFor("")
-- 发布时间：2014/12/4 14:52:00
--
我执行的是关闭窗口 按钮代码为 DataTables("工资主表").RejectChanges() e.Form.Close Afterclose 事件代码 DataTables("表D").DeleteFor("") |
-- 发布时间：2014/12/4 14:53:00
--
肯定有其它事件代码影响了。分别注释掉表事件的代码看看。
具体问题，上传个例子。
-- 发布时间：2014/12/4 14:55:00
--
工资主表 表事件只有一个 Datarowadding
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
e.DataRow("制单人") = _username
e.DataRow("制单时间") = dt
If _userchejian.Length >=4 Then
Dim a As String = _userchejian.SubString(0,4)
e.DataRow("单据编号") = GetPY(a, True) & "-" & Format(dt,"yyMMdd") & "-" & Format(dt,"HHmmss")
Else
e.DataRow("单据编号") = GetPY(_userchejian, True) & "-" & Format(dt,"yyMMdd") & "-" & Format(dt,"HHmmss")
End If
e.DataRow("车间名称")=_userchejian
e.DataRow("工资日期")=dt.AddDays(-1)
表D属于临时表
红色这段代码有什么问题吗？这是按钮代码
If Tables("工序录入_table1").Rows.Count<2 Then
MessageBox.Show("请先导入员工!")
ElseIf Tables("工序录入_table1").Cols.Count<4 Then
MessageBox.Show("请先导入工序!")
ElseIf Tables("工序录入_table1").Cols.Count>=4 AndAlso Tables("工序录入_table1").Rows.Count>=2 Then
Dim k As Double = Tables("工序录入_table1").Rows(1)(3)
If k<=0 Then
MessageBox.Show("请输入数值!")
Else
For i As Integer =1 To Tables("工序录入_table1").Rows.Count-1
For Each dc As DataCol In Tables("工序录入_table1").DataTable.DataCols
If dc.Name<>"姓名" AndAlso dc.Name<>"工号" AndAlso dc.Name<>"单据编号" AndAlso dc.Name<>"员工编号" Then
Tables("工序录入_table1").Rows(i)(dc.Name) =k
End If
Next
Next
End If
End If
[此贴子已经被作者于2014-12-4 14:59:09编辑过]
-- 发布时间：2014/12/4 14:57:00
--
那就不应该报错啊。你升级到最新版了吗？
-- 发布时间：2014/12/4 15:01:00
--
请问一下
红色这段代码有什么问题吗？这是按钮代码 If Tables("工序录入_table1").Rows.Count<2 Then MessageBox.Show("请先导入员工!") ElseIf Tables("工序录入_table1").Cols.Count<4 Then MessageBox.Show("请先导入工序!") ElseIf Tables("工序录入_table1").Cols.Count>=4 AndAlso Tables("工序录入_table1").Rows.Count>=2 Then Dim k As Double = Tables("工序录入_table1").Rows(1)(3) If k<=0 Then MessageBox.Show("请输入数值!") Else For i As Integer =1 To Tables("工序录入_table1").Rows.Count-1 For Each dc As DataCol In Tables("工序录入_table1").DataTable.DataCols If dc.Name<>"姓名" AndAlso dc.Name<>"工号" AndAlso dc.Name<>"单据编号" AndAlso dc.Name<>"员工编号" Then Tables("工序录入_table1").Rows(i)(dc.Name) =k End If Next Next End If End If For Each r As Row In Tables("工序录入_table1").GetCheckedRows r.Delete Next 蓝色代码也是写在按钮事件 |
[此贴子已经被作者于2014-12-4 15:01:47编辑过]
-- 发布时间：2014/12/4 15:03:00
--
代码没问题。