主题：不能自动添加录入时间，有时间感觉崩盘了，有附件。

　　　为什么在点击新建行后有时候能自动添加录入时间，有时候又不能添加，还有负责人刀一样，请大神帮我看看，我都重新做几次了还是这样，感觉2017版本没有以前的好用。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

核销始终在第一行。

1、

 

With Tables("订单管理")
    Dim r = .AddNew()
    r("录入日期")=Date.now
    DataTables("订单管理").AllowEdit=True
End With

 

2、核销的问题如何测试？测试步骤说明一下。

　　核销的时候本来是点最后一行，可以它把第一行给核销了，要不全部核销了。

 

我选择最后一行，然后点击【核销】，核销的就是点击的那一行。

你这个代码不应该有问题的。你弹出值看看，看每次点击的值是否都正确。

 

msgbox(Tables("订单录入").Current("某列"))

 

或者你说明一下，如何测试，会出问题？

 

   我试过了如果用了进度条核销的时候就是当前行，当取消进度条后就正常了，这是什么原因？

 

你代码里面没有关于进度条的代码。你进度控件绑定表列也没问题，我测试没问题。你试试重新加控件测试。