主题：问题

PrepareEdit事件：

 

If e.Row.IsNull("完成") = True Then       '锁定"完成"列为空的行
     'e.Cancel = True
   Tables("Sales_Order_List").Current.locked = True
End If

 

但是新增订单时，不能编辑了。去掉这段代码，新增订单就可以，点击“客户Id”，可以选择客户。但是加上这一段，新增订单后，不能操作。这是什么原因呢？？请帮忙。

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

新增订单时，“完成”列非空，有值为“未完成”

新增订单 按钮代码：

 

Tables("Sales_Order_List").AddNew           '增加订单时

Tables("Sales_Order_List").Current("DeliveryDate") = Date.today
Tables("Sales_Order_List").Current("SubmitDate")= Date.today
Tables("Sales_Order_List").Current("发货") = "未发货"                  '新增订单时,将"发货"列标记为未发货
Tables("Sales_Order_List").Current("完成") = "未完成"                  '新增订单时,将"完成"列标记为未完成,"完成"列需要销售人员确认

 

是不是此时，"未完成"还没有填入“完成”列？？？

不好意思，是连在公司服务器上的，不能上传例子，请帮忙看一下，这样也不行，是不是有触发先后的问题。

 

If e.Row.IsNull("完成") = True And e.Row("SubmitDate") < Date.Today Then       '锁定"完成"列为空的列,也就是之前的订单;同时锁定订单已完成的列
    'e.Cancel = True
    Tables("Sales_Order_List").Current.locked = True
End If

 

我切换菜单，再回到此界面时，就不会锁定了，可以正常输入了。。。。。这是不是一个问题？？？

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

点击浏览该文件:管理项目1.foxdb

 

例子已上传，