以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]表不能操作了?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142078)

--  作者:gzlw2019
--  发布时间:2019/10/17 21:13:00
--  [讨论]表不能操作了?
第15个表只能有10行记录吗?我增加了一个记录,马上关闭系统,再打开系统进入,还是10个记录,这10个记录可以修改保存,是试用版原因吗?
用程序执行出现如下提示:

.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)    -----------------没执行--------------------

dbj.Current("分组") = S分组(i)
dbj.Current("次序") = 次序(i)
dbj.Current("姓名") = dr("姓名")


--  作者:有点酸
--  发布时间:2019/10/17 21:19:00
--  
参考:


--  作者:gzlw2019
--  发布时间:2019/10/18 14:03:00
--  还不行?
加载所有记录,还是同样错误

图片点击可在新窗口打开查看此主题相关图片如下:查询1.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2019/10/18 14:22:40编辑过]

--  作者:有点蓝
--  发布时间:2019/10/18 14:32:00
--  
提示什么错误?
--  作者:gzlw2019
--  发布时间:2019/10/18 15:16:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:查询2.jpg
图片点击可在新窗口打开查看




--  作者:有点蓝
--  发布时间:2019/10/18 15:42:00
--  
这个表有没有新增行的事件代码?这个错误看不出和上面的代码有什么关系
[此贴子已经被作者于2019/10/18 15:42:30编辑过]

--  作者:gzlw2019
--  发布时间:2019/10/18 16:11:00
--  
表是空表,没有代码
--  作者:有点蓝
--  发布时间:2019/10/18 16:17:00
--  
1、更新到最新版本的Foxtable
2、做个例子发上来测试

--  作者:gzlw2019
--  发布时间:2019/10/18 16:34:00
--  
更新了,结果一样
--  作者:有点蓝
--  发布时间:2019/10/18 16:59:00
--  
请上传实例测试