Foxtable(狐表)用户栏目专家坐堂 → [求助]]如何在主表插入行的同时,副表中也能插入行?


  共有2475人关注过本帖平板打印复制链接

主题:[求助]]如何在主表插入行的同时,副表中也能插入行?

帅哥哟,离线,有人找我吗?
33chyh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:124 积分:1190 威望:0 精华:0 注册:2015/12/27 21:01:00
[求助]]如何在主表插入行的同时,副表中也能插入行?  发帖心情 Post By:2017/8/22 11:09:00 [只看该作者]

我在表“客观题答案”的DataColChanged事件中写入如下代码。想要实现在表“客观题答案”的“试卷号”列输入相关内容,其他三个表的“试卷号”列也随之写入与表“客观题答案”的“试卷号”列相同内容。如果在表“客观题答案”中插入一空行并输入内容,其他三个表也要产生相应的操作。但是插入表并输入内容后出现如下图片,同时不能实现插入操作,请问如何修改代码。

代码:

If e.DataRow("试卷号") IsNot Nothing Then
    Dim sjhdr1 = DataTables("错误学生与人数统计").find("[_Identify] = '" & e.DataRow("_Identify") & "'")
    Dim sjhdr3 = DataTables("考点频度统计").find("[_Identify] = '" & e.DataRow("_Identify") & "'")
    Dim sjhdr2 = DataTables("考点描述").find("[_Identify] = '" & e.DataRow("_Identify") & "'")
    sjhdr1("试卷号") = e.DataRow("试卷号")
    sjhdr2("试卷号") = e.DataRow("试卷号")
    sjhdr3("试卷号") = e.DataRow("试卷号")
    If sjhdr1 Is Nothing And sjhdr2 Is Nothing And sjhdr3 Is Nothing Then
        sjhdr1 = DataTables("错误学生与人数统计").AddNew
        sjhdr2 = DataTables("考点频度统计").AddNew
        sjhdr3 = DataTables("考点描述").AddNew
    End If
End If

提示信息如下:


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.foxdb


 回到顶部