| 投稿日 | ： 2004/05/26(Wed) 14:53 |
| 投稿者 | ： LESIA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: MSFlexGridで問い合わせ受付票を作成してるのですが・・・ |
> プログラムで「XX行までは入力している」という判定をさせたいのですが
> 可能なんでしょうか？ ※対応履歴のみ書き込み必須項目
> ・・・ようは何行まで入力されているかを調べ、繰り返しの処理で
> ＤＢに格納したいのですが。。
対応履歴のセルを調べて、何も書かれてなければ処理を抜けるようにするとか。
Dim lngRow As Long
For lngRow = 1 To MSFlexGrid1.Rows - 1
'対応履歴に何も入ってなかったら処理を抜ける
If MSFlexGrid1.TextMatrix(lngRow, 4) = "" Then
Exit For
End If
DB登録処理
Next lngRow