【结帖】【惊现系统BUG】**

jacobpro

我这边存储过程执行后，在datagrid里只能显示第一列结果，后面的都不能显示。
然而不用datasetbroker控件，而直接用datasource+query控件执行又是好的。请教了

lixy

您什么版本的平台，如何可以重现您的问题？请仔细描述一下

jacobpro

2611版本
我用如下代码可以实现
procedure TXMYJTJBMainForm.Button1Click(Sender: TObject);
var
  x,y,z,i: String;
begin


    x := 'XSGS';
    i := '1';
    y := '1949-1-1';
    z := '2050-1-1';

RBTJFXBXXINFO.TXMYJTJFXB(DocView2.Doc).Query1.Close;
RBTJFXBXXINFO.TXMYJTJFXB(DocView2.Doc).Query1.CommandText:='p_xmyjb '+#39+x+#39+','+#39+y+#39+','+#39+z+#39+','+i;
RBTJFXBXXINFO.TXMYJTJFXB(DocView2.Doc).Query1.Open;
end;

但是用
  dsbMaster.DataSet.Active := false;

    dsbMaster.DataSet.Params.ParamByName['@xsgsid'].AsString := 'XSGS';
    dsbMaster.DataSet.Params.ParamByName['@bs'].AsInteger := 1;
    dsbMaster.DataSet.Params.ParamByName['@ksrq'].AsDateTime := 1949-1-1;
    dsbMaster.DataSet.Params.ParamByName['@jzrq'].AsDateTime := 2050-1-1;

  dsbMaster.DataSet.Active := true;
不能实现

lixy

dsbMaster.DataSet.Params.ParamByName['@ksrq'].AsDateTime := 1949-1-1;
    dsbMaster.DataSet.Params.ParamByName['@jzrq'].AsDateTime := 2050-1-1;
楼主这个您能编译过去？？？

jacobpro

可以啊。ASDATETIME嘛

jiahaiminghr

dsbMaster.DataSet.Params.ParamByName['@ksrq'].AsDateTime := 1949-1-1;
这个表达式是有问题的，请用：
dsbMaster.DataSet.Params.ParamByName['@ksrq'].AsDateTime := SysUtils.StrToDate('1949-1-1');

另外，请把错误现象的截图贴上来看下。

jiahaiminghr

楼主，请反馈。

sun4559

没有错误，只是datagrid只显示一列。

jiahaiminghr

你是否则设计期为datagrid创建了列？

sun4559

是的