各位好,现在有个问题,
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
s3:='select * from vesselsconditioncode ';
ADOQuery4.SQL.Add(s3);
ADOQuery4.Open;
DBGrid3.Columns[1].PickList.Clear;
adoQuery4.First;
while not adoQuery4.Eof do begin
DBGrid3.Columns[1].PickList.Add(adoQuery4.Fields[0].AsString+' '+adoQuery4.Fields[1].AsString);
adoQuery4.Next;
end;
这段代码是做dbgrid中的下拉框,
adoQuery4.Fields[0].AsString是代码,adoQuery4.Fields[1].AsString是名称,
现在出现了个问题,当我选择代码‘1’的时候,在dbgrid中显示1和一个空格,
当我选择代码'12'的时候没有问题,就是显示的‘12’。
然后我把代码改为DBGrid3.Columns[1].PickList.Add(adoQuery4.Fields[0].AsString+adoQuery4.Fields[1].AsString)结果选择代码‘1’的时候,dbgrid中显示1和名称中的第一个字母,也就是说不管怎么样,dbgrid中代码列显示的是2位的,我用的是access数据库,不区分varchar和char,而且我这得代码字段长度为50。怎么会出现这个问题呢?请高手指教。
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
s3:='select * from vesselsconditioncode ';
ADOQuery4.SQL.Add(s3);
ADOQuery4.Open;
DBGrid3.Columns[1].PickList.Clear;
adoQuery4.First;
while not adoQuery4.Eof do begin
DBGrid3.Columns[1].PickList.Add(adoQuery4.Fields[0].AsString+' '+adoQuery4.Fields[1].AsString);
adoQuery4.Next;
end;
这段代码是做dbgrid中的下拉框,
adoQuery4.Fields[0].AsString是代码,adoQuery4.Fields[1].AsString是名称,
现在出现了个问题,当我选择代码‘1’的时候,在dbgrid中显示1和一个空格,
当我选择代码'12'的时候没有问题,就是显示的‘12’。
然后我把代码改为DBGrid3.Columns[1].PickList.Add(adoQuery4.Fields[0].AsString+adoQuery4.Fields[1].AsString)结果选择代码‘1’的时候,dbgrid中显示1和名称中的第一个字母,也就是说不管怎么样,dbgrid中代码列显示的是2位的,我用的是access数据库,不区分varchar和char,而且我这得代码字段长度为50。怎么会出现这个问题呢?请高手指教。
解决方案 »
- delphi ado access 问题
- 在Delphi下使用 DevExpress 控件的朋友,希望在此留下E-Mail或QQ,诚心交流、共同提高。
- Indy 列目录的问题,谢谢!
- 请问如何通过语句更改SQL账号登录方式?
- 请问谁知道同样的代码编码的程序,其它机器上就好使,在这的一个客户机器上就不好使,可是在那里重新编译就好使用???
- 打印高手请进来看一下,有关Printer.Canvas.TextOut打印出错,不知道错在哪里?分不够我可以加!
- dbchart分页显示的问题
- socket的基础问题
- 关于ADOStoredProc1.Parameters自动添加的问题
- 关于字段关联的问题?
- 数据保存重复的问题????
- 有一段代码,运行是提示错误,请帮忙看一下?
//定义一个变量然后调试看看值是否正确
DBGrid3.Columns[1].PickList.Add(liststr);
试试