记录部件中GetItemControlByFieldName（字段标签样式设置）用法

王爱东

度量快速开发平台的记录部件，一个字段有两个内容，分别是标签名称与字段要填写值的方框。
下图中红色区域就是标签名称，蓝色方框区域就是值域。

在值域部分，可以设置字体大小颜色等，这部分设置参考帖子：http://plat.delit.cn/forum.php?mod=viewthread&tid=241
在标签区域，我们可以直接利用记录部件的面板设置中进行样式设置：

如果我们要动态设置标签的文字，比如根据不同的条件，某一个字段的标签显示不同的值，如何实现好呢？
可以采用下面的示例代码来实现：
在记录部件值变化时间中，如果“创建时间”字段的值大于今日，则表现显示为“大于今日变更名称”，否则还是显示为 “创建时间”。

dim e = Me.GetEventArgs()
if e.FieldName="创建时间" then
        dim  AAA=记录部件1.GetItemControlByFieldName("创建时间")
        if e.Value >=date() then
          AAA.Text="大于今日变更名称"   
        else
          AAA.Text="创建时间"
        end if
end if

王爱东

这个在有时候是有用的。