何度もすみません。
またつまってしまいました。
コマンドボタンの「読み込み」を押してデータをグリッドに読み込むことはできたのですが、また「読み込み」をおすと同じデータを読み込んで新しくレコードを作ってしまうのです。
たとえば
鈴木/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
vsFlexGrid1.Redraw = False
の後でvsFlexGrid1.Rowsに固定行の数を入れて初期化すればよいのではないでしょうか。
>みい様
ありがとうございます!こんな簡単なことだったんですね!
ありがとうございました!
ツイート | ![]() |