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

解決


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

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

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

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

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

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

以下にプログラムを書いておきます。
-------------------------------------------------------
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

>みい様

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加