以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  克隆表中行数据时,软件自行退出,不知何故?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150142)

--  作者:dyzkdxy
--  发布时间:2020/5/22 2:26:00
--  克隆表中行数据时,软件自行退出,不知何故?
通过菜单操作或编写代码,克隆表中行数据时,软件自行退出,不知何故?但对其他表克隆行都正常。
把该表改名复制成另一个表时,通过菜单操作或编写代码都可以正常克隆行,是不是我在原表中设置了该表行数据不能重复的原因(时间久,记不清了是否设置了该限制)?如设置了,在哪里可取消这个限制?
  以下下2中代吗运行,都是软件自行退出:
1、通过设置按钮事件:Tables("订单").Current.Clone()

2、在订单表中的DataRowAdding代码如下:

If e.DataTable.DataRows.Count = 0 Then \'如果是一个空表
    Return \'那么返回
Else
      Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) \'获得最后一行
      For Each ColName As String In ColNames
            e.DataRow(ColName) = dr(ColName) \'将最后一行的内容复制到新增行中.
      Next
   End If
End If

--  作者:有点蓝
--  发布时间:2020/5/22 8:45:00
--  
把订单表所有表事件都注释掉,测试有没有问题?如果没有问题,再一一开启表事件,看是和哪个事件有冲突