【结贴】[请求]选项卡中如何对相同的表单区分

ZHOUX

如图：几个选项卡中用到的是相同的一张表单文档，设想是通过填充一个字段：工作类型的不同来区分。
求教：1，如何自动填充
      2，如何对数据进行过滤

wuchao

1。可以在逻辑表的“工作类型”字段上定义自动填充。触发条件为新增。
   或者右击数据集的字段编辑器里添加数据字段“工作类型”，然后配置该字段的自动填充属性。
2。在PageControl的Onchange事件中添加处理代码。通过判断当前活动页ActivePage的值，做相应的过滤。

ZHOUX

能否在每个选项卡中自动填充相应的工作类型？以工作类型的不同来对数据进行过滤？
您上述的自动填充的方法应该是只能填写一种工作类型？
PS：之前做过在不同的功能中引用同一张表，通过对表中区别字段添加数据集策略来对表中的数据在不同功能中实现过滤。
现在在一个功能中，我迷糊了。
请问能不能用类似于我上面做过的方法来进行过滤。
再PS：您过滤的方法是不是想要通过将活动页的值和工作类型的值做关联来实现过滤？
新手问题多多，请谅解

wuchao

第一个填值的问题：
创建一个业务参数组，定义一个新的业务参数，业务参数的OnGetValue事件中添加代码。
if PageControl.ActivePage = TabSheet1 then
  Value := '工作类型1'
else PageControl.ActivePage = TabSheet2 then
  Value ………………
设置好这些以后，去自动填充设置的“值”选项卡里设置“由表达式获得”，单击表达式设置按钮。
在表达式编辑窗口字段选择‘工作类型’，参数选择刚才配置的业务参数。确定。退出。

第二个问题：
在PageControl的OnChange事件中写过滤代码。
类似下面的代码
  if PageControl1.ActivePage = TabSheet1 then
  begin
    InfoBrokerYWXX6.Info.DataSets[0].Filtered := False;
    InfoBrokerYWXX6.Info.DataSets[0].Filter := 'ZD1=''1''';
    InfoBrokerYWXX6.Info.DataSets[0].Filtered := True;
  end
  else if PageControl1.ActivePage = TabSheet2 then
  begin
    InfoBrokerYWXX6.Info.DataSets[0].Filtered := False;
    InfoBrokerYWXX6.Info.DataSets[0].Filter := 'ZD1=''2''';
    InfoBrokerYWXX6.Info.DataSets[0].Filtered := True;
  end;

ZHOUX

思想可以接受，未能实现~~~

wuchao

楼主哪一个问题没实现？出了什么问题？

ZHOUX

最初由 wuchao 发布
[B]楼主哪一个问题没实现？出了什么问题？ [/B]

我最后是用一个笨的方法实现的：
3个选项卡为例，分别为3个选项卡健了3个数据集。字段计划类型作为区别标识字段。
在每个选项卡中的添加数据集代理，添加事件AfterInsert，做标识。
在每个数据集中添加数据集策略：做过滤。
OVER。
您介绍的方法，我个人看来是一种很方便有效的，但我刚毕业，接触平台不久，对平台中参数的用法不是很清晰，各种事件何时添加不是很明确，我尝试着做了一下，比如参数中添加的事件代码中用到的未声明的对象、方法我就不是很明白 :confused: 还请您多多指点。

wuchao

实现了就行。没问题就结了

ZHOUX

结了 结了~