主题：[求助]操作结果为什么保留不住？

我希望“身份证号码”来自于“证件号码”的前12位，操作前是：

 

此主题相关图片如下：操作前.png

 

代码如下：在表属性中“datacolchanged"代码如下：

''通过证件号码生成身份证号码
If e.DataRow("证件号码").length>11 Then
    e.DataRow("身份证号码") =e.DataRow("证件号码").Substring(0,12)
    Else
    e.DataRow("身份证号码") =e.DataRow("证件号码")
End If

 

通过重至列操作后得到正确结果：

 

 

此主题相关图片如下：操作后.png

 

但是在退出 时没有显示是否保存，再次进入程序时，显示操作前的状态，是什么原因？

 你的身份证号码列，不能是表达式列，你要改成数据列。

对了，谢谢老师！

 

另外，如果我不希望显示“身份证号码”列，如何操作？

 

在afterOpenProject写入代码

 

Tables("表A").Cols("身份证号码").Visible = False

 或者 http://www.foxtable.com/help/topics/0037.htm

 

 

谢谢老师

 

 

另外请教：在调试过程中，出现如下 错误，如何终止呢？

 

此主题相关图片如下：如何终止.png

 

我是通过
ctr+alt+delt   终止的，但是整个程序也推出了，有更好的办法么？

 

老师在群里叫什么？

 

 这一段代码没有错，你删除其余代码测试，如果有错，你请上传一个出错的例子

 

If e.DataRow("证件号码").length>11 Then
    e.DataRow("身份证号码") =e.DataRow("证件号码").Substring(0,12)
Else
    e.DataRow("身份证号码") =e.DataRow("证件号码")
End If

我现在希望把“理财积分”表中的客户，但是在“客户资料”表中没有的客户，添加到“客户资料”表中，代码如下：

''在客户资料中加入没有的客户
Select Case e.DataCol.name
   Case  "身份证号码","客户名称","证件号码"
        If e.DataRow.Isnull("身份证号码")=False Then
            Dim dr As DataRow = DataTables("客户资料").Find(" 身份证号码 ='" & e.DataRow("身份证号码") & "'")
            If dr Is Nothing Then
                dr = DataTables("客户资料").addnew
                dr("客户名称")=e.DataRow("客户名称")
                dr("身份证号码")=e.DataRow("身份证号码")
            
            End If
        End If
End  Select

 

 

测试出现如下错误，不知道什么原因。 而且在出现这样的错误提示后，无法中断，只能通过调用“任务管理器”中断任务推出程序，由更好的方法么？ 

 

 

此主题相关图片如下：出错信息.png

 代码没有错，肯定是其它代码影响了，例子发上来。