【结贴】不让保存，奇怪！求助！！！！**

江振辉 · 发表于 2009-7-7 16:43:37

我在studio中调试运行，我写的代码能通过！到我点系统自带的工具栏的时候就报上面的错误，我重建了一下数据集也不行，做的是一个弹出窗体

zfang · 发表于 2009-7-7 16:49:59

把相关的信息贴上来看看或者做一个简单例子传上来看看。

江振辉 · 发表于 2009-7-7 16:57:06

这个是数据集的图

江振辉 · 发表于 2009-7-7 16:59:01

这个是我弹出窗体的图片，代码：static function TPJXXXZ_SXCT.GetOpinionID(AContext: TContext): String;
var
  lForm: TPJXXXZ_SXCT;
begin
  lForm := TPJXXXZ_SXCT.Create(AContext);
  try
if lForm.DataSetBroker1.Dataset.Active then
   begin
      TSqlDataSet(lForm.DataSetBroker1.Dataset).SQLFilter := '1<>1';
      TSqlDataSet(lForm.DataSetBroker1.Dataset).SQLFiltered := true;
      lForm.DataSetBroker1.Dataset.Open;
      //lForm.DataSetBroker1.Dataset.Open;
   end;
if lForm.ShowModal = Controls.mrOK then
   Result := lForm.DataSetBroker1.Dataset.FieldByName('opinionInfoId').AsString;
  finally
lForm.Free;
  end;
end;

procedure TPJXXXZ_SXCT.Button1Click(Sender: TObject);
var
IOpinionContent: String;
IOpinionTypeId: String;
IServiceTypeName: String;
begin
  IOpinionTypeId := DataEdit1.Text;
  IOpinionContent := Edit1.Text;
  IServiceTypeName := DataEdit2.Text;

  if not (IOpinionTypeId = '') and not (IOpinionContent = '') then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := 'opinionContent like ''%'+ IOpinionContent + '%'' and opinionTypeName = ''' + IOpinionTypeId +''' and serviceTypeName = ''' + IServiceTypeName +'''';
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
  if not (IOpinionContent = '') and (IOpinionTypeId = '')then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := 'opinionContent like ''%'+ IOpinionContent + '%''' ;
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
  if not (IOpinionTypeId = '') and (IOpinionContent = '')then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := 'opinionTypeName = '''+ IOpinionTypeId +''' and serviceTypeName = ''' + IServiceTypeName +'''' ;
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
  if (IOpinionTypeId = '') and (IOpinionContent = '') then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := '1=1';
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
end;

江振辉 · 发表于 2009-7-7 17:00:18

这是那个弹出窗体代码static function TPJXXXZ_SXCT.GetOpinionID(AContext: TContext): String;
var
  lForm: TPJXXXZ_SXCT;
begin
  lForm := TPJXXXZ_SXCT.Create(AContext);
  try
if lForm.DataSetBroker1.Dataset.Active then
   begin
      TSqlDataSet(lForm.DataSetBroker1.Dataset).SQLFilter := '1<>1';
      TSqlDataSet(lForm.DataSetBroker1.Dataset).SQLFiltered := true;
      lForm.DataSetBroker1.Dataset.Open;
      //lForm.DataSetBroker1.Dataset.Open;
   end;
if lForm.ShowModal = Controls.mrOK then
   Result := lForm.DataSetBroker1.Dataset.FieldByName('opinionInfoId').AsString;
  finally
lForm.Free;
  end;
end;

procedure TPJXXXZ_SXCT.Button1Click(Sender: TObject);
var
IOpinionContent: String;
IOpinionTypeId: String;
IServiceTypeName: String;
begin
  IOpinionTypeId := DataEdit1.Text;
  IOpinionContent := Edit1.Text;
  IServiceTypeName := DataEdit2.Text;

  if not (IOpinionTypeId = '') and not (IOpinionContent = '') then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := 'opinionContent like ''%'+ IOpinionContent + '%'' and opinionTypeName = ''' + IOpinionTypeId +''' and serviceTypeName = ''' + IServiceTypeName +'''';
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
  if not (IOpinionContent = '') and (IOpinionTypeId = '')then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := 'opinionContent like ''%'+ IOpinionContent + '%''' ;
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
  if not (IOpinionTypeId = '') and (IOpinionContent = '')then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := 'opinionTypeName = '''+ IOpinionTypeId +''' and serviceTypeName = ''' + IServiceTypeName +'''' ;
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
  if (IOpinionTypeId = '') and (IOpinionContent = '') then
   begin
      TSqlDataSet(DataSetBroker1.Dataset).SQLFilter := '1=1';
      TSqlDataSet(DataSetBroker1.Dataset).SQLFiltered := true;
   end;
end;

江振辉 · 发表于 2009-7-7 17:04:43

这个是运行时候弹出正常，也能查询，也能选择后点下面的OK按钮也能将我想要的数据写到父窗体上，

zfang · 发表于 2009-7-7 17:33:00

远程沟通后，是数据表有问题了。

江振辉 · 发表于 2009-7-8 09:19:53

具体也没有搞清楚什么原因导致物理表的更新失败，谢谢，你们的支持！

jiahaiming · 发表于 2009-7-8 09:59:05

楼主，你是怎么处理的？

江振辉 · 发表于 2009-7-8 11:31:21

找到原因了，因为我让同事在上述更新的表上建一个触发器，触发器没写正确，所以就出现了No.1楼的错误！

		自动登录	找回密码
密码			立即注册