タイトル : Re^4: データグリッド任意行削除。 投稿日 : 2005/11/07(Mon) 10:04 投稿者 : ぽこ太
なおこsお返事ありがとうございます。 おかげさまで一応、行削除できました。 ただ現在のRowがカウントできない等あり、凄くおこちゃまなプログラムになってしまいました。 恥ずかしいながら、載せていただきます。 If Grid1.Row <> 0 Then Do Until iCount > iCurA - iCount2 'iCurA 追加した行のカウント 'iCount2 削除行 Grid1.Row = iCount '行セット Grid1.Col = 1 'カラムセット Atai1 = Grid1.Text If Atai1 = TxS.Text Then Grid1.RemoveItem (iCount) iCount2 = iCount2 + 1 End If iCount = iCount + 1 Loop End If もっと良い書き方がありましたら、ご連絡下さい。 |