就是我在程式上放了一個ComboBox和一個Memo，
當USERS挑了ComboBox中的某個選項時，
我會把ComboBox裡的選項塞到Memo裡面去，
然後USERS接著在他們挑的選項下繼續打裡面的內容，
這樣的動作他們可一直重複做，不管幾次都行，
等到USERS按了確定的Button之後，就得把這些內容存到資料庫去。

市場資訊
1、10月採購需求200mt,ideal price 300系跌7元/kg ,400系跌4元/kg
2、觀察報價動作再行回覆
3、跌幅比照辦理
競爭者資訊
1、304J3/304HC/304M/304M4/302HQ: 110/108/105/101/126
2、比照辦理
現在問題來了，就是針對Memo裡面的這些資料，
我該如何分類的存進資料庫去呢？
我的資料庫欄位設計分別是，
Summary_type(分類大綱) visit_Summary(內容)
競爭者資訊 1、燁興304J3/304HC/304M/304M4/302HQ: 110/108/105/101/126 2、力常跌幅比照辦理
市場資訊 1、10月採購需求200mt,ideal price 300系跌7元/kg ,400系跌4元/kg2、觀察YH報價動作再行回覆3、力常跌幅比照辦理

就是這個問題，想請問大家了！

編輯記錄

您好,

以您所舉的例子,
combobox 中放了哪些資料?也就是, combobox 的 items 是什麼 ?

我想這會影響解法

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

Hello...您好啊！
我所舉的例子裡combobox裡面放的就是『市場資訊』、『競爭者資訊』、『客戶營運狀況』
等等，總共有十二個項目呢！
還煩請高高手幫忙解答了！
謝謝您唷！



===================引 用 st33chen 文 章===================
您好,

以您所舉的例子,
combobox 中放了哪些資料?也就是, combobox 的 items 是什麼 ?

我想這會影響解法

您好,
如果 memo 中出現的 combobox 標題獨佔一列, 且第一列就一定是標題.

i i : = 0;
// 傳上去後會亂掉, 所以每個字母加一空格
w h i l e i i < m e m o 1 . l i n e s . c o u n t d o b e g i n
i f p o s ( m e m o 1 . l i n e s [ i i ] , c o m b o b o x 1 . i t e m s . t e x t ) > 0 t h e n b e g i n
a s t r : = m e m o 1 . l i n e s [ i i ] ; // for 分類大綱
b s t r : = ' ' ; // for 內容
i i : = i i 1 ;
w h i l e ( i i < m e m o 1 . l i n e s . c o u n t ) a n d
( p o s ( m e m o 1 . l i n e s [ i i ] , c o m b o b o x 1 . i t e m s . t e x t ) < = 0 ) d o b e g i n
b s t r : = b s t r m e m o 1 . l i n e s [ i i ] ;
i i : = i i 1 ;
e n d;
write _ r e c o r d _ t o _ d a t a b a s e ;
e n d
e l s e b e g i n
i i : = i i 1;
e n d;
e n d;

請試一下

=================引 用 hsiuchih 文 章===================
市場資訊
1、10月採購需求200mt,ideal price 300系跌7元/kg ,400系跌4元/kg
2、觀察報價動作再行回覆
3、跌幅比照辦理
競爭者資訊
1、304J3/304HC/304M/304M4/302HQ: 110/108/105/101/126
2、比照辦理
Summary_type(分類大綱) visit_Summary(內容)
競爭者資訊 1、燁興304J3/304HC/304M/304M4/302HQ: 110/108/105/101/126 2、力常跌幅比照辦理
市場資訊 1、10月採購需求200mt,ideal price 300系跌7元/kg ,400系跌4元/kg2、觀察YH報價動作再行回覆3、力常跌幅比照辦理

就是這個問題，想請問大家了！

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

Hello...st33chen大大，您好：
我按照您教的方法去做，似乎有點問題，
程式掉進去無窮迴圈了！
我貼上程式碼，麻煩您幫小妹我看一下，
到底那邊出了問題了，不好意思，
麻煩您囉！Thanks......
另，您的程式碼是不是少了一個end啊？



[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBTables, DB;
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Memo1: TMemo;
Button1: TButton;
DB_YSP1: TDatabase;
Query1: TQuery;
UpdateSQL1: TUpdateSQL;
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Memo1.Lines.Add(ComboBox1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ii:Integer;
aStr,bStr:String;
begin
ii:=0;
while ii < Memo1.Lines.Count do
begin
If Pos(Memo1.Lines[ii],ComboBox1.Text) > 0 Then
begin
aStr:=Memo1.Lines[ii];
bStr:='';
ii:=ii 1;
while (ii < Memo1.Lines.Count) and (Pos(Memo1.Lines[ii],ComboBox1.Items.Text) <= 0 ) do
begin
bStr:=bStr Memo1.Lines[ii];
ii:=ii 1;
end;
Query1.Append;
Query1.FieldByName('cust_no').AsString:='9990000000';
Query1.FieldByName('visit_date').AsString:='2008/10/22';
Query1.FieldByName('serial_no').AsString:='1';
Query1.FieldByName('summary_type').AsString:=aStr;
Query1.FieldByName('visit_summary').AsString:=bStr;

DB_YSP1.StartTransaction;
Try
Query1.ApplyUpdates;
DB_YSP1.Commit;
Except
DB_YSP1.Rollback;
Raise;
End;
Query1.CommitUpdates;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Query1.Close;
Query1.ParamByName('cust_no').AsString:='X';
Query1.ParamByName('visit_date').AsString:='X';
Query1.ParamByName('serial_no').AsString:='X';
Query1.Prepare;
Query1.Open;
end;
end.
市場資訊
1、10月採購需求200mt,ideal price 300系跌7元/kg ,400系跌4元/kg
2、觀察報價動作再行回覆
3、跌幅比照辦理
競爭者資訊
1、304J3/304HC/304M/304M4/302HQ: 110/108/105/101/126
2、比照辦理
Summary_type(分類大綱) visit_Summary(內容)
競爭者資訊 1、燁興304J3/304HC/304M/304M4/302HQ: 110/108/105/101/126 2、力常跌幅比照辦理
市場資訊 1、10月採購需求200mt,ideal price 300系跌7元/kg ,400系跌4元/kg2、觀察YH報價動作再行回覆3、力常跌幅比照辦理

就是這個問題，想請問大家了！

[/code]




===================引 用 st33chen 文 章===================
您好,
如果 memo 中出現的 combobox 標題獨佔一列, 且第一列就一定是標題.

i i : = 0;
// 傳上去後會亂掉, 所以每個字母加一空格
w h i l e i i < m e m o 1 . l i n e s . c o u n t d o b e g i n
i f p o s ( m e m o 1 . l i n e s [ i i ] , c o m b o b o x 1 . i t e m s . t e x t ) > 0 t h e n b e g i n
a s t r : = m e m o 1 . l i n e s [ i i ] ; // for 分類大綱
b s t r : = ' ' ; // for 內容
i i : = i i 1 ;
w h i l e ( i i < m e m o 1 . l i n e s . c o u n t ) a n d
( p o s ( m e m o 1 . l i n e s [ i i ] , c o m b o b o x 1 . i t e m s . t e x t ) < = 0 ) d o b e g i n
b s t r : = b s t r m e m o 1 . l i n e s [ i i ] ;
i i : = i i 1 ;
e n d;
write _ r e c o r d _ t o _ d a t a b a s e ;
e n d;

請試一下

=================引 用 hsiuchih 文 章===================

1. 對不起, 的確是少了一個 end
   我並沒測試就直接 post 上去了, 現在改好了( 原 post 紅色部份)
   
   我原有假設 memo1 的第一列就是標題, 不知您測時是否有注意到這一點
   
   我剛剛有測了一下, 並不會造成 無限 loop
   您可以用 單步 debug 方式得知問題所在
   
   我剛看了您的程式, 發現可能的錯誤點 (紅色 .items)
   var
2. ii:Integer;
3. aStr,bStr:String;
4. begin
5. ii:=0;
6. while ii < Memo1.Lines.Count do
7. begin
8. If Pos(Memo1.Lines[ii],ComboBox1.items.Text) > 0 Then
9. begin
10. =========================================================
11. 另外, 您的
    DB_YSP1.StartTransaction;
12. Try
13. 是不是放在整個 while loop 之外比較好
14. 代表如果有一筆錯誤整個 rollback, 這樣使用者重按時才不會資料重覆.
15. 參考一下.

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

Hello...st33chen高手：
真的太感謝你了呀！
謝謝你的出手相救了！
解決了我程式的一大問題，
給你一百分都沒關係的呢！
再次謝謝你唷！