【结贴】二进制流字段（续）**

shangxy

http://bbs.justep.com/forum.php? ... 3%B2%E9%BF%B4%C6%F7

xhsoft

1

xhsoft

2

xhsoft

?

shangxy

qq:869209605
远程看一下

xhsoft

if (field <>nil ) and(Field.FieldName='FFWJBH') then
  begin
     ffbh:= dsb_ff.DataSet.FieldByName('ffwjbh').AsString;
     dsb_qc.DataSet.Open;
     dsb_qc.DataSet.Locate('wjbh',FFBH,[]);
     dsb_ff.DataSet.Open;
     dsb_ff.DataSet.Edit;
     dsb_ff.DataSet.FieldByName('wjnr').Assign(dsb_qc.DataSet.FieldByName('wjnr')); //取起草中的文件内容赋给发放文件内容字段
     dsb_ff.DataSet.Post;

    end;
我这是样写的，出错，

shangxy

写了一段代码你参考一下：
procedure TMainForm.DataSetBroker1DataChange(Sender: TObject; Field: TDataField);
begin
if ( Field <> nil) and (Field.FieldName ='ZD2') then
begin
   DataSetBroker2.DataSet.Open;
   DataSetBroker2.DataSet.Locate('ID',Field.AsString,[]);
   if DataSetBroker2.DataSet.eof = False then
   begin
   DataSetBroker1.DataSet.Edit;
   DataSetBroker1.DataSet.FieldByName('ZD3').AsString :=DataSetBroker2.DataSet.FieldByName('ID').AsString;
   end
  else
   begin
   DataSetBroker1.DataSet.Edit;
   DataSetBroker1.DataSet.FieldByName('ZD3').AsString :=''
   end;
end;
end;

xhsoft

if (field <>nil ) and(Field.FieldName='FFWJBH') then
  begin
     ffbh := dsb_ff.DataSet.FieldByName('ffwjbh').AsString;
     dsb_qc.DataSet.Open;
     dsb_qc.DataSet.Locate('wjbh',ffbh,[]);
     if dsb_qc.DataSet.eof = False then
     begin
    dsb_ff.DataSet.Edit;
    dsb_ff.DataSet.FieldByName('wjnr').Assign(dsb_qc.DataSet.FieldByName('wjnr'));
   end
   else
   begin
   dsb_ff.DataSet.Edit;
   //(dsb_ff.DataSet.FieldByName('wjnr').isnull);
   end;
end;
end;
没有实现

shangxy

dsb_qc.DataSet.Locate('wjbh',ffbh,[]);
不是FFBH，是Field.AsString

xhsoft

是啥