上代码就被度给当广告杀了，各位高人辛苦了，看看图吧。不知为啥输出不能，，，Btext数据库是备注类型，因为这个么？

表id如果是自增字段的话，是长整型的，加了引号就变成字符了，不一致。另外，两个日期函数可以合并成DateTimeToStr函数，直接输出DateTimeToStr(now())，没必要中转。格式化输出可以用FormatDateTime函数。树的生成可以一次查询出来，也可以每层展开时再次查询。
try
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from table1';
ADOQuery1.Open;
except
MessageBox(handle,'查询失败！','警告',MB_OK+MB_ICONWarning);
Exit;
end;
if not ADOQuery1.IsEmpty then //判断结果集是否为空
begin
TreeView1.Items.Clear;
TreeView1.Items.Add(nil, '根节点');
ADOQuery1.First;
TreeView1.Items.BeginUpdate; //循环时禁止刷新组件
try
while not ADOQuery1.Eof do //循环添加子节点
begin
TreeView1.Items.AddChild(TreeView1.Items[0], ADOQuery1.FieldByName('field1').AsString);
ADOQuery1.Next;
end;
finally
TreeView1.Items.EndUpdate;
end;
if TreeView1.Items.Count>0 then
TreeView1.Items[0].Expand(False); //展开第一级树
end;

纠结郁闷中，，， ID是acc默认的长整型自增数列 我将BI定义为字符串 然后这样引用可以通过
我将BI定义成长整型 然后这样引用就不通过......
说字段不兼容。。。。。这是为虾米？？ （上面两图为了便于观看中间有删减）

Delphi是一种语言，SQL是另一种语言，要分清类型是在哪个语言里识别的。
Delphi中Add语句要求是字符串类型，所以你加一个整数肯定通不过。你加引号字符能通过，但在SQL语言里引号把数字变成字符又与表字段类型不一致，运行时数据库就会检查。
所以应该这样写：Bi还是整型，SQL.Add('where id ='+inttostr(Bi));
也可以用另一种传参数的方法，它的好处是不用考虑引号：
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from table1 where field1=:a');
ADOQuery1.Parameters.ParamByName('a').Value:=同类型参数值;
ADOQuery1.Open;