掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DataGrid ハイライト表示で実行時エラー'7001' (ID:100331)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
VB6SP6+WinXPで開発しております。 以下のコードのようにDataGridのハイライト表示を行おうと思ってます。 たとえば、１４８行のデータがDataGridに表示されているとします。 １スクロールで表示できる行数が１６行にデザインとなっております。 スクロールを最下位にして、最終行（新規入力行: rs.MoveLastして、DataGrid1.Row = DataGrid1.Row + 1にあたるデータの無い行）にカーソルをあてた後、表示されているスクロール内で、別の行をクリックしたとき、 DataGrid1.SelBookmarks.Remove 0 で、以下のメッセージボックスが表示されます。 ----------------------------------- 実行時エラー'7001'が発生します。 予期しない場所から不明なエラーコードが発生しました ----------------------------------- どのような理由で発生するのでしょうか？ また、回避方法あれば、教えていただけますでしょうか？ Dim rs As New ADODB.Recordset Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Dim lRow As Long While (DataGrid1.SelBookmarks.Count <> 0) DataGrid1.SelBookmarks.Remove 0 Wend DataGrid1.SelBookmarks.Add rs.Bookmark End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.