StoredProc奇怪的问题??解决马上给分!!!

azheok 2003-08-30 06:40:21
//判断查询条件
if ys_TreeView.selected.Index=0 then
begin
clbz:=0;
clztbz:=0;
end;

if ys_TreeView.selected.index =1 then
begin
clbz:=1;
clztbz:=0;
end;
if ys_TreeView.selected.Index =2 then
begin
clbz:=2;
clztbz:=1;
end;

ys_treeview.Selected.DeleteChildren;

//第一层查询
if ys_TreeView.selected.Level =0 then
begin
//查询符合条件的记录
dm.Database.Connected:=true;
dm.DataSource.DataSet:=dm.csh_StoredProc;
csh_DBGridEh.DataSource:=dm.DataSource;



//待处理用户查询储存过程
//try
dm.csh_StoredProc.Close;
//dm.csh_StoredProc.Prepared:=false;
dm.csh_StoredProc.Params.Clear;
dm.csh_StoredProc.StoredProcName:='P_YK_csh2CX';
dm.csh_StoredProc.Params.CreateParam(ftString,'@czgw',ptinput);
dm.csh_StoredProc.Params.CreatePara(ftinteger,'@czydm',ptinput);
dm.csh_StoredProc.Params.CreateParam(ftString,'@sbh',ptinput);
dm.csh_StoredProc.Params.CreateParam(ftinteger,'@clbz',ptinput);
dm.csh_StoredProc.Params.CreateParam(ftinteger,'@clztbz',ptinput);


dm.csh_StoredProc.ParamByName('@czgw').Value:='8';
dm.csh_StoredProc.ParamByName('@czydm').Value:=14;
dm.csh_StoredProc.ParamByName('@sbh').Value:=null;
dm.csh_StoredProc.ParamByName('@clbz').Value:=clbz;
dm.csh_StoredProc.ParamByName('@clztbz').Value:=clztbz;


dm.csh_StoredProc.Prepared:=true;
dm.csh_StoredProc.Open;



当选择 ys_TreeView.selected.index =1 可以查到记录
但选择其他的,比如 ys_TreeView.selected.index =0 或 ys_TreeView.selected.index =2
就没有记录返回了。

但是如果我先选择ys_TreeView.selected.index =0 可以查到记录
但再选择其他的,比如 ys_TreeView.selected.index =1或 ys_TreeView.selected.index =2
就没有记录返回了。

有谁遇到过这样的怪问题,请帮我解决一下吧!!!1
...全文
113 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
xjlqlqlq 2003-08-30
  • 打赏
  • 举报
回复
调试一下存储过程。。。看看是不是真的有问题。。。

5,387

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧