仓库管理软件版1楼: unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComObj;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
myCn : Variant;
myRs : Variant;

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
myconnstr:String;
begin
myCn:=CreateOleObject(＇＇ADODB.Connection＇＇);
myRs:=CreateOleObject(＇＇ADODB.RecordSet＇＇);

myconnstr:=＇＇Provider=Microsoft.Jet.OLEDB.4.0;Data Source=STUDENTS1.mdb＇＇;
myCn.Open(myconnstr);
myRs.open(＇＇select * from 成绩单 where 语文>60＇＇,myCn);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ItemStr:String;
I:Integer;

begin
myRs.MoveFirst;
While not myRs.EOF Do
begin
ItemStr:=＇＇＇＇;
For I:=0 To myRs.Fields.Count-1 Do
Begin
？？？？ ItemStr:=ItemStr + vartostr(myRs.Fields[I].value) + chr(VK_TAB);
End;
ListBox1.Items.Add(ItemStr);
myRs.MoveNext;
End;
end;
end.
打问号的一行不能编译通过，请问用什么办法可以解决这个问题vartostr(myRs.Fields[I].value) ，请高手赐教。

2楼: ItemStr:=ItemStr + myRs.Fields[I].asstring + chr(VK_TAB); 如库存管理

3楼: 帮顶！

╭=========================================╮

80G海量源代码,控件，书籍全免费狂下不停！

http://www.source520.com

个人网站站长开发推广同盟，让所有人知道你的世界！

http://www.source520.com/search/search.asp

╰=========================================╯

4楼: to jennykiller:
你说的办法我用过，编译能通过，但是在运行时将会出现OLEERROR, 不能出现预期的数据啊。其他的高手遇到过此类问题吗？

5楼: 当然错了，FIELDS[I]这里错了。

你要加的是哪科的，I不能是变量，要固定的，如果说语文在第一个字段中，就要用FIELDS[0]。否则超出字段定义，或者字段类型不对。呵呵。

6楼: to dancekids:
你可能没有看明白，我这里的目的是想在listbox中列出数据库中每一行的内容，使用I是没有问题的，只是我想把可变类型变成字符串格式。

仓库管理软件版7楼: TO ALL:
问题我已经解决，将vawrtostr替换成string就能通过编译，并能运行得到预期的期望值。