.NET Framework 版本:4.0.30319.1026
Foxtable 版本:2019.8.3.1
错误所在事件:窗口,查询员工,Bt新建,Click
详细错误信息:
This row has been removed from a table and does not have any data.
BeginEdit() will allow creation of new data in this row.
程序代码:
Dim S分组() As String ={"办公室","办公室","办公室","制管A班","制管B班","焊管A班","焊管B班","质检.机修","质检.机修","注塑","车床.布丝.破碎.拉粒","车床.布丝.破碎.拉粒","车床.布丝.破碎.拉粒","饭堂.后勤.保安","饭堂.后勤.保安","饭堂.后勤.保安"}
Dim Y部门() As String = {"办公室","生产技术部","财务部","制管A班","制管B班","焊管A班","焊管B班","质检","机修","注塑","破碎.拉粒","布丝","车床","后勤部","保安部","厨房"}
Dim 次序() As Single ={1,1,1.1,4,5,6,7,3.1,3,8,9,9,9,2.3,2.1,2}
dbj.Rows.AddNew() --------------成功------------
msgbox("测试开始,部门= " & dr("部门")) --------------成功------------
i = Array.Indexof(Y部门,dr("部门")) --------------错误--------------
msgbox("i= " & i) -----------------没执行--------------------