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

  • 主题发起人 主题发起人 luckyboy97
  • 开始时间 开始时间
L

luckyboy97

Unregistered / Unconfirmed
GUEST, unregistred user!
假如我建有一张表具体如下：
商品名称（name），价格(price)，供货商（ghs）等几个字段
在form1用一个comboBox1来显示商品名称内容，当我选择一种商品名称的话，对应的名称、
价格、供货商就显示在memo1或者richedit1中(具体我不知道用哪个好)，然后将memo1或者
richedit1中的内容保存，请问各位这个问题我应该怎么解决呢？我试过用combobox1的
chanage事件和click事件,(但是不现在怎么回事,没有到达我要的结果,将我选择过的内容全
部显示在里面,只显示combobox的内容),请各位帮忙看看怎么做?谢谢!
 
各位大哥帮忙看看怎么做嘛？虽然很简单但是对我来讲是个问题啊！
 
在combobox选中后查询表找到相应记录，将对应内容增加到MEMO中
最好表中有相应字段可以判断记录是否选中过，否则容易重复，
而且这样也可以全部选完以后一次增加到MEMO中。
 
不是了，我的意思是将选择过的多条的内容都要一起显示在里面啊！我应该怎么做呢
 
是这样啊
你对表中加上标记的记录通过循环加到MEMO中就可以啦
 
我是要选中了才加到里面，没选的就不加，你们能用代码说明怎么做吗？
 
要將相應的表格focus相應的內容﹐然后對Memo進行內容聯接﹗﹗
 
怎么个连接呢？能用例子说明吗？
 

在CHANGE事件里写，
QRY.SQL.TEXT('SELECT GYS FROM 表 where name='''+combobox1.text+'''';
qry.open;
(查询相应要加的数据）
..
MEMO1.LINES.ADD(qry.fields[0].asstring);
 
这样是没条记录显示在一行,但我想所有的内容显示在一行上我应该怎么做呢?
 
memo1.text := memo1.text + 你要的内容;
 
那我如何来判定我选择的内容已经添加过呢?因为选择商品名称还要实现价格的总和?请问我应该
怎么做呢?
 
你在添加每条记录时用‘；’格开，从开绐添加时就开始计算，直到添加结束，也可读取memo中的
字符，通过标志（如‘；’）来记算
 
你能用代码给我举例说明吗？我的想法是如果增加过就给出给提示不能增加，说明已经是存在的了！谢谢
 
if pos(呢的内容 + ';', memo1.text) <> 0 then
memo1.text := memo1.text + 你要的内容 + ';'
else
已经有了;
 
xelloss你好：能给讲讲这个方法在实际中用在那些方面呢？
 
虽然分很少，也给你答吧
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;
 
shigongping:你好!
你好象是加到了listbox里面,我想加到MEMO里面,还要控制它的唯一性
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
圣诞快乐！请帮忙进来看看我这段代码怎么解决！！！！(10分)
回复
7
查看
138
luckyboy97
L
L
grid和memo组合使用的问题！！！！进来看看！！！(5分)
回复
10
查看
141
穿越沦陷的爱
穿
L
几个简单的问题！主要是没分了，倾家荡产了！请各位帮忙解决！小弟感激不禁！！！(15分)
回复
12
查看
131
joky1981
J
逆
一个关于COMBOBOX极简单的问题(50分)
回复
16
查看
147
crazymoon
C
后退
顶部