| 投稿日 | ： 2004/05/27(Thu) 10:38 |
| 投稿者 | ： mashin |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: MSFlexGridで問い合わせ受付票を作成してるのですが・・・ |
返信遅れてしまい、すいません。
LESIAさんのご提示していただいたプログラムを参考に作ってみました。
※対応履歴編集というフォームにMSFlexGridがあり。
他のフォームより下記を実行しています。
Private Sub Command1_Click()
Dim lngrowx As Long
Dim lngrowy As Long
Dim taiou As String
For lngrowx = 1 To 対応履歴編集.MSFlexGrid1.Rows - 1
'対応履歴に何も入ってなかったら処理を抜ける
For lngrowy = 1 To 5
If 対応履歴編集.MSFlexGrid1.TextMatrix(lngrowx, lngrowy) = "" Then
Exit For
End If
'DB登録処理
taiou = taiou & 対応履歴編集.MSFlexGrid1.TextMatrix(lngrowx, lngrowy) & ","
MsgBox taiou
Next lngrowy
Next lngrowx
End Sub
MSFlexGridのセルをひとつの変数に入れることができたんで、これでＤＢに格納できます。
そして一つ考えていることがあるんですが、「一行に空白が5回続いたら処理を終わる」という
処理を作る事は可能でしょうか？
自分でもちょっと考えて見ます・・・。