专家坐堂-同一时间往多个表插入数据狐表报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同一时间往多个表插入数据狐表报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183943)

--  作者：yolala
--  发布时间：2022/11/20 1:23:00
--  同一时间往多个表插入数据狐表报错

With Tables( "领导值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("领导值班表").AddNew()
End If
End With
With Tables("主任值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("主任值班表").AddNew()
End If
End With
With Tables( "早班值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("早班值班表").AddNew()
End If
End With
With Tables("中班值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("中班值班表").AddNew()
End If
End With
With Tables("晚班值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("晚班值班表").AddNew()
End If
End With

建立了一个新增按钮，把以上代码写进去之后，执行的时候，就出现报错；单个插入或者同时插入4个数据，就不会报错，注释掉了前面4段代码，最后一条就报错，把最后一条注释掉了，完美插入数据，咋解决？检查过了表和表结构没有问题。

--  作者：yolala
--  发布时间：2022/11/20 1:37:00
--

\'With Tables( "领导值班表")
\' If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
\' Tables("领导值班表").AddNew()
\' End If
\'End With
\'With Tables("主任值班表")
\' If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
\' Tables("主任值班表").AddNew()
\' End If
\'End With
\'With Tables( "早班值班表")
\' If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
\' Tables("早班值班表").AddNew()
\' End If
\'End With
\'With Tables("中班值班表")
\' If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
\' Tables("中班值班表").AddNew()
\' End If
\'End With

With Tables("晚班值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("晚班值班表").AddNew()
End If
End With

百思不得其解啊

--  作者：yolala
--  发布时间：2022/11/20 9:51:00
--
在windows系统的事件查看器里看了，内容如下：
日志名称: Application
来源: Application Error
日期: 2022/11/20 9:49:08
事件 ID: 1000
任务类别: (100)
级别: 错误
关键字: 经典
用户: 暂缺
计算机: MainRoom
描述:
错误应用程序名称: foxtable.exe，版本: 2022.8.18.1，时间戳: 0x62fca482
错误模块名称: clr.dll，版本: 4.7.3416.0，时间戳: 0x5cabfd2c
异常代码: 0xc00000fd
错误偏移量: 0x00011a0b
错误进程 ID: 0x2524
错误应用程序启动时间: 0x01d8fc8231a3c4d1
错误应用程序路径: E:\\foxtable\\Professional\\foxtable.exe
错误模块路径: C:\\Windows\\Microsoft.NET\\Framework\\v4.0.30319\\clr.dll
报告 ID: 852a65a1-6875-11ed-aa86-1c697a2f78cd

这个clr.dll是什么东西？把netframe work 都修复了重启了，问题依旧，百思不得其解。

[此贴子已经被作者于2022/11/20 11:52:19编辑过]

--  作者：yolala
--  发布时间：2022/11/20 11:47:00
--
换一台电脑来操作，点击新增按钮，提示是这个，搞不懂为啥。

--  作者：yolala
--  发布时间：2022/11/20 12:02:00
--
只要出现了无法创建新的堆栈防护页面的系统错误，连代码都被修改或者删除了部分，真是奇怪啊
With Tables( "领导值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("领导值班表").AddNew()

End With
With Tables("主任值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("主任值班表").AddNew()
End If
End With

If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("早班值班表").AddNew()
End If
End With
With Tables("中班值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改

End If
End With
With Tables("晚班值班表")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
Tables("晚班值班表").AddNew()
End If

--  作者：有点蓝
--  发布时间：2022/11/20 20:10:00
--
出现了死循环的处理。上面代码放在什么事件的？各个表格都有什么表事件？

--  作者：yolala
--  发布时间：2022/11/20 21:21:00
--
上述代码放在窗口的新建按钮中去的啊，我详细地检查了代码，没看出啥问题，就是netframeworkd的clr.dll老是出错，也不知道什么原因，我是不是要考虑重装系统试试了？

--  作者：有点蓝
--  发布时间：2022/11/20 21:46:00
--
和系统没有半毛钱的关系。各个表格都有什么表事件？您看不出问题不代表没有问题，看不出就发上来给别人看看