在设计方案数据对话框时,在全部列的Background.Color属性中撰写以下表达式:
if ( IsRowNew(), 1090519039, Long(Describe("Datawindow.Color")))
那样能够让用户了解这种行的数据为实验原始记录,禁止改动与删掉。随后在每列的protect属性中撰写以下表达式:
if ( isRowNew(), 0, 1)
那样用户就没法改动实验原始记录了。为了更好地让数据对话框在查寻方式下用户能够键入数据,能够将上边表达式相应当为:
Background.Color:if ( Describe("Datawindow.QueryMode") = "yes" or isRowNew(), 1090519039, Long(Describe("Datawindow.Color"))) 与 Protect: if ( Describe("Datawindow.QueryMode") = "yes" or isRowNew(), 0, 1)