Foxtable(狐表) → 用户栏目 → 专家坐堂 → 同一时间往多个表插入数据狐表报错


  共有5023人关注过本帖树形打印复制链接

主题：同一时间往多个表插入数据狐表报错
帅哥哟，离线，有人找我吗？
yolala
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：1788 威望：0 精华：0 注册：2013/2/18 23:22:00 		同一时间往多个表插入数据狐表报错  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：1788 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：1788 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：1788 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/20 11:47:00 [显示全部帖子]

图片点击可在新窗口打开查看换一台电脑来操作，点击新增按钮，提示是这个，搞不懂为啥。

 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：1788 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yolala
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：1788 威望：0 精华：0 注册：2013/2/18 23:22:00 		  发帖心情 Post By：2022/11/20 21:21:00 [显示全部帖子]

上述代码放在窗口的新建按钮中去的啊，我详细地检查了代码，没看出啥问题，就是netframeworkd的clr.dll老是出错，也不知道什么原因，我是不是要考虑重装系统试试了？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询