怎么把数据库中的数据读取在combobox中 并且立刻在combobox显示出来
我知道把数据库中的数据读到textbox中可以这样写while(reader.Read()){textBox1.Text=reader["cardId"].ToStrin...
我知道 把数据库中的数据读到textbox中可以 这样写
while (reader.Read())
{
textBox1.Text = reader["cardId"].ToString();
}
那我想把这个cardId的值读到combobox上显示出来 要怎么做呢
网上看到这样一句话 可是也不行
comboBox2.Items.Add(reader["cardId"].ToString());
我的意思是读取出来直接显示在上面
请问具体语句怎么写? 展开
while (reader.Read())
{
textBox1.Text = reader["cardId"].ToString();
}
那我想把这个cardId的值读到combobox上显示出来 要怎么做呢
网上看到这样一句话 可是也不行
comboBox2.Items.Add(reader["cardId"].ToString());
我的意思是读取出来直接显示在上面
请问具体语句怎么写? 展开
2个回答
展开全部
要显示出来,ADD完值之后,把你要的其中一个值,赋给COMBOBOX的TEXT不就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我不知道你是使用什么方法把你指的第一级给取出来的,不过我也做了一个程序(按照你的题意),我使用的是Tstirngs类型(str:Tstrings 全局变量):
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
str := tstringlist.Create;
query1.Open;
query1.First;
while not query1.Eof do
begin
str.Add(query1.fieldbyname('id').AsString);
query1.Next;
end;
for i := 0 to str.Count - 1 do
begin
if length(str[i]) = 2 then//当长度为2时即看做第一级
combobox1.Items.Add(str[i]);
end;
end;
在显示小项时,也使用这个str:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i : integer;
begin
combobox2.Items.Clear;
for i := 0 to str.Count - 1 do
begin
if (pos(combobox1.Items[combobox1.itemindex],str[i])<> 0) and (length(str[i])<>2) then
//当str里含有第一级,并且长度不等于2时,combobox2中添加
combobox2.Items.Add(str[i]);
end;
可做参考哦~~
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
str := tstringlist.Create;
query1.Open;
query1.First;
while not query1.Eof do
begin
str.Add(query1.fieldbyname('id').AsString);
query1.Next;
end;
for i := 0 to str.Count - 1 do
begin
if length(str[i]) = 2 then//当长度为2时即看做第一级
combobox1.Items.Add(str[i]);
end;
end;
在显示小项时,也使用这个str:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i : integer;
begin
combobox2.Items.Clear;
for i := 0 to str.Count - 1 do
begin
if (pos(combobox1.Items[combobox1.itemindex],str[i])<> 0) and (length(str[i])<>2) then
//当str里含有第一级,并且长度不等于2时,combobox2中添加
combobox2.Items.Add(str[i]);
end;
可做参考哦~~
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询