同じデータを読み込まないようにするには？

解決

みそ 2005-12-03 01:10:25 No: 128533

何度もすみません。
またつまってしまいました。
コマンドボタンの「読み込み」を押してデータをグリッドに読み込むことはできたのですが、また「読み込み」をおすと同じデータを読み込んで新しくレコードを作ってしまうのです。

たとえば
鈴木/12/345
田中/13/445

というデータを「読み込み」で読み込んだ後、また「読み込み」を押すと

鈴木/12/345
田中/13/445
鈴木/12/345
田中/13/445

というようになってしまうのです。
これを防ぎたいのですがなにかいい方法はないでしょうか？
クリック２度目以降のレコードの追加を現レコードの最後ではなく、最初からできるようにすればいいとは思うのですが・・・・

以下にプログラムを書いておきます。
-------------------------------------------------------
Private Sub Command2_Click()
Dim intCnt As Integer
Dim intColCnt As Integer
Dim blnStatus  As Boolean
Dim strData(30) As String
Dim strLineData As String
Dim intDispCnt      As Integer

filename = "data1.csv"
FileNo = FreeFile

vsFlexGrid1.Enabled = False
vsFlexGrid1.Redraw = False
Open filename For Input As FileNo
Line Input #FileNo, strLineData

Do Until EOF(FileNo)
Line Input #FileNo, strLineData

'CutCanmaDataというカンマ区切りをの関数を呼び出しています
intColCnt = CutCanmaData(strLineData, strData())

vsFlexGrid1.Rows = vsFlexGrid1.Rows + 1
vsFlexGrid1.TextMatrix(vsFlexGrid1.Rows - 1, 0) = strData(0)
vsFlexGrid1.TextMatrix(vsFlexGrid1.Rows - 1, 1) = strData(1)
vsFlexGrid1.TextMatrix(vsFlexGrid1.Rows - 1, 2) = strData(2)
Loop
'----------グリッドの設定（省略してます）----------------

Close #FileNo

vsFlexGrid1.Enabled = True
vsFlexGrid1.Redraw = True

End Sub

みい 2005-12-03 01:52:00 No: 128534

vsFlexGrid1.Redraw = False
の後でvsFlexGrid1.Rowsに固定行の数を入れて初期化すればよいのではないでしょうか。

みそ 2005-12-03 01:55:26 No: 128535

＞みい様

ありがとうございます！こんな簡単なことだったんですね！
ありがとうございました！