你好,我的2楼图示的数据导航条的数据源设置的是datasetbrokeryj,DataSetBrokerbmxmhz指向1楼所示的项目汇总数据集。我在他的事件中定义如下所示:
procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
var
count : Integer;
tempstr : String;
i : Integer;
begin
DataSetBrokerbmxmhz.DataSet.Open;
count := DataSetBrokerbmxmhz.DataSet.RecordCount;
for i:=0 to count-1 do
begin
DataNavigator1.AutoDetect := True;
DataNavigator1.Refresh;
DataSetBrokeryj.DataSet.Open;
DataSetBrokeryj.DataSet.FieldByName('XMBS').Value := DataSetBrokerbmxmhz.DataSet.FieldByName('XMBS').Value.ToString;
DataSetBrokeryj.DataSet.FieldByName('BDMC').Value := '建议书';
DataSetBrokeryj.DataSet.FieldByName('YJMC').Value := '部门初审意见';
Dialogs.ShowMessage(DataSetBrokeryj.DataSet.FieldByName('XMBS').Value.ToString+DataSetBrokeryj.DataSet.FieldByName('BDMC').Value.ToString+DataSetBrokeryj.DataSet.FieldByName('YJMC').Value.ToString);
if JYSYWXX.TBMCSYJBDWD(DocView2.Doc).RadioButtontongguo.Checked then
begin
DataSetBrokeryj.DataSet.FieldByName('LXYJ').Value :='同意';
end;
if JYSYWXX.TBMCSYJBDWD(DocView2.Doc).RadioButtontaotai.Checked then
begin
DataSetBrokeryj.DataSet.FieldByName('LXYJ').Value :='不同意';
end;
if JYSYWXX.TBMCSYJBDWD(DocView2.Doc).RadioButtonxiugai.Checked then
begin
DataSetBrokeryj.DataSet.FieldByName('LXYJ').Value :='返回修改';
end;
DataSetBrokerbmxmhz.DataSet.Next;
end;