一个简单的combobox使用问题?请各位帮忙进来看看!(5分)

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #1

假如我建有一张表具体如下：
商品名称（name），价格(price)，供货商（ghs）等几个字段
在form1用一个comboBox1来显示商品名称内容，当我选择一种商品名称的话，对应的名称、
价格、供货商就显示在memo1或者richedit1中(具体我不知道用哪个好)，然后将memo1或者
richedit1中的内容保存，请问各位这个问题我应该怎么解决呢？我试过用combobox1的
chanage事件和click事件,(但是不现在怎么回事,没有到达我要的结果,将我选择过的内容全
部显示在里面,只显示combobox的内容),请各位帮忙看看怎么做?谢谢!

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #2

各位大哥帮忙看看怎么做嘛？虽然很简单但是对我来讲是个问题啊！

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #3

在combobox选中后查询表找到相应记录，将对应内容增加到MEMO中
最好表中有相应字段可以判断记录是否选中过，否则容易重复，
而且这样也可以全部选完以后一次增加到MEMO中。

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #4

不是了，我的意思是将选择过的多条的内容都要一起显示在里面啊！我应该怎么做呢

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #5

是这样啊
你对表中加上标记的记录通过循环加到MEMO中就可以啦

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #6

我是要选中了才加到里面，没选的就不加，你们能用代码说明怎么做吗？

 

S

summersimon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #7

要將相應的表格focus相應的內容﹐然后對Memo進行內容聯接﹗﹗

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

怎么个连接呢？能用例子说明吗？

 

无

无功不收录

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #9

在CHANGE事件里写，
QRY.SQL.TEXT('SELECT GYS FROM 表 where name='''+combobox1.text+'''';
qry.open;
(查询相应要加的数据）
..
MEMO1.LINES.ADD(qry.fields[0].asstring);

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #10

这样是没条记录显示在一行,但我想所有的内容显示在一行上我应该怎么做呢?

 

X

Xelloss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #11

memo1.text := memo1.text + 你要的内容;

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #12

那我如何来判定我选择的内容已经添加过呢?因为选择商品名称还要实现价格的总和?请问我应该
怎么做呢?

 

流

流云飞雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #13

你在添加每条记录时用‘；’格开，从开绐添加时就开始计算，直到添加结束，也可读取memo中的
字符，通过标志（如‘；’）来记算

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #14

你能用代码给我举例说明吗？我的想法是如果增加过就给出给提示不能增加，说明已经是存在的了！谢谢

 

X

Xelloss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #15

if pos(呢的内容 + ';', memo1.text) <> 0 then
memo1.text := memo1.text + 你要的内容 + ';'
else
已经有了;

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #16

xelloss你好：能给讲讲这个方法在实际中用在那些方面呢？

 

S

shigongping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #17

虽然分很少，也给你答吧
var
s:String;
I:Integer;
begin
with Table1 do
for I:=0 to RecordCount-1 do
begin
s:=Table1['Name'];
ComboBox1.Items.Add(s);
Table1.Next;
end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
with Table1 do
begin
Table1.IndexFieldName:='Name';
if FindKey(ComboBox1.Text) then
ListBox1.Items.Add(Table1['Price']+#9+Table1['ghs']);
end;
end;

 

L

luckyboy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #18

shigongping:你好!
你好象是加到了listbox里面,我想加到MEMO里面,还要控制它的唯一性