DELPHI请大家帮我看看这段搜索代码出错在哪儿啊？
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 作业单资料 where');
SQL.Add(Trim(ComboBox2.Text));
SQL.Add('= :a');
Parameters.ParamByName('a').Value := Trim(Edit3.Text);
Open;
end;
if ADOQuery1.RecordCount >0 then
begin
DataSource1.DataSet := ADOQuery1;
end
else
begin
DataSource1.DataSet := Nil;
Application.MessageBox('信息不全或不存在。','提示',64);
end;
end;
end;
DataSource1.DataSet := ADOQuery1;(这句运行的时候错误)
提示错误:DataSource1:circular datalinks are not allowed
这段代码想实现的功能是把搜索出来的数据通过DATASOURCE1显示在DBGRID
还有我想把把弄成模糊搜索,要怎么写?给个思路^^
看你的最终VIEW控件是不是也用ADOQUERY1 比如DBGRID
你的ADOQuery1.DataSource是不是设成了DataSource1
循环引用
检查Dat
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
VC++ 中， &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、？
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时， ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
