请教：不同功能间参数传递？**

jwei

描述：两功能调用（A，B），如何将功能A中多选的记录，插入到另一功能中。目前，我在新打开的功能B中，只能获取一条记录？即多选中最后一条记录。
if XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedCount > 0 then
  begin
    with XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.DataSource.DataSet do
    begin
      for I := 0 to XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedCount - 1 do
      begin
        Bookmark := XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedRows;
        lUSERID := 'Biz:\XXYWZHGLXT\DICT\YXZHCSZ.ParamGroup\USERID.Param';
        TGGHS.SetParamValue(self.context,lUSERID,dsbCUSTOMER.DataSet.FieldByName('USERID').AsString);
        lDEPT := 'Biz:\XXYWZHGLXT\DICT\YXZHCSZ.ParamGroup\DEPT.Param';
        TGGHS.SetParamValue(self.context,lDEPT,dsbCUSTOMER.DataSet.FieldByName('DEPT').AsString);
        //Dialogs.ShowMessage('1');
      end;
    end;
  end;

  SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\XXYWZHGLXT\DZYXZHSQGN.Func', '', nil, False);

lili7912

if XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedCount > 0 then
  begin
    with XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.DataSource.DataSet do
    begin
      for I := 0 to XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedCount - 1 do
      begin
        Bookmark := XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedRows;
        lUSERID := 'Biz:\XXYWZHGLXT\DICT\YXZHCSZ.ParamGroup\USERID.Param';
        TGGHS.SetParamValue(self.context,lUSERID,dsbCUSTOMER.DataSet.FieldByName('USERID').AsString);
        lDEPT := 'Biz:\XXYWZHGLXT\DICT\YXZHCSZ.ParamGroup\DEPT.Param';
        TGGHS.SetParamValue(self.context,lDEPT,dsbCUSTOMER.DataSet.FieldByName('DEPT').AsString);
        //Dialogs.ShowMessage('1');
      end;
    end;
  end;
上面为A功能代码，A功能选的多条记录,如何传到B功能
调用B功能的方式采用下面语句
SystemCore.TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\XXYWZHGLXT\DZYXZHSQGN.Func', '', nil, False);

jiahaiming

可以在A功能中，打开B功能的数据集，完成数据复制。
然后再打开B功能

atiger

在A中 ，把这端代码放到某个按钮上，执行的是啥结果？多条还是一条？
如果是多条，那么在 Bookmark := XXDAXX.TKHDAWG(dvCUSTOMER.Doc).DataGrid.SelectedRows;
执行 for j := 0 to FieldCount - 1 do
        begin
          if (j > 0) then s := s + ', ';
          s := s + Fields[j].AsString;
        end;

看看S的值是一条还是多条？

jwei

回4楼：
　　在多选情况下，S的值是多条！
回3楼：
　　在A功能中如何打开B功能的数据集，并完成复制！

lixy

为什么不做成2个窗体？功能传递不方便。

jwei

用户需求是：A功能中选中多条需操作的记录，点击界面上的按钮直接在另一个功能（B功能）上操作（发起流程）。

lixy

做一块不行吗？平台的功能独立性比较强，不适合这样操作。改改用户的需求就很容易实现了。

jwei

好的，和用户沟通一下。