主题：信息提示

那意思就是“审批状态”= false都是了

直接增加的或插入的行没问题！

但按下面代码执行增加的行不行！

If e.keycode = keys.enter Then
    If e.Table.cols(e.Table.colsel).name = "备注"  Then
        Dim cr As Row = e.Table.rows(e.Table.position)
        Dim nr As Row = e.Table.addnew
        nr("预算编号") = cr("预算编号")
        nr("编制人") = cr("编制人")
        nr("生产令号") = cr("生产令号")
        nr("项目名称") = cr("项目名称")
        nr.move(cr.index+1)
        e.cancel = True
    End If
End If

行不行自己测试就知道了

不行啊！

 

窗口表如果是sqltable，要在窗口表事件drawcell处理

是在表属性里的KeyDown事件设置的以下代码

 

If e.keycode = keys.enter Then
If e.Table.cols(e.Table.colsel).name = "备注" Then
Dim cr As Row = e.Table.rows(e.Table.position)
Dim nr As Row = e.Table.addnew
nr("预算编号") = cr("预算编号")
nr("编制人") = cr("编制人")
nr("生产令号") = cr("生产令号")
nr("项目名称") = cr("项目名称")
nr.move(cr.index+1)
e.cancel = True
End If
End If

 

 

和这段代码没有关系。请上传实例说明

表属性Drawcell

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

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

1、我测试你的例子没问题。

 

2、只要【审批状态】列一直是false或者用其它列存放信息，都会一直显示【增加】的样式。

我想实现的流程是这样的

1.编制人要编制预算，首先在“预算清单”中设置预算编号等信息；

2.预算编号自动生成后，在“物资采购明细表”中自动增加一行，这一行显示部分和“预算清单”中相同的基础信息，例如预算编号、项目名称等；

3.编制人再到“物资采购明细表”中编制需要采购的清单，这时无论是更改、还是增加、删除行都不进行任何标记；

4.进入审批流程；（一旦审批后，所有的更改、删除行、增加行都要进行标注）

5.审核批准后如果需要修改某项采购内容（某单元格），在“物资采购明细表”中会有标注；（已实现）

6.审核批准后如果需要取消某项采购是不允许删除行的，只能在“物资采购明细表”中勾选“是否取消采购”项，进行标注（以实现）；

 

现在就剩审批后增加某项采购的标注还没实现：