|
case ComboBox1.DataSource.DataSet.FieldByName('FCode').AsInteger of
1:
begin
DataSetBroker2.DataSetID := 'DeptPay';
DataSetBroker3.DataSetID := 'DeptPaySetFlow';
DocView1.DocClassID := 'DocDeptPayDoc.FormDoc';
DocView2.DocClassID := 'DeptPaySetFlowDoc.FormDoc';
end;
2:
begin
DataSetBroker2.DataSetID := 'YLSalePay';
DataSetBroker3.DataSetID := 'YLSalePayFlow';
DocView1.DocClassID := 'YLSalePayDoc.FormDoc';
DocView2.DocClassID := 'YLSalePaySetDoc.FormDoc';
end;
end;
DocView1.RefreshDoc(True);
DocView2.RefreshDoc(True);
上面的代码是在运行期执行的.
在设计期设计的是1的条件,如果选择1,他显示就没有问题.如果换成2他就不显示了. |
|