| |
【80335】ListView：引数は省略できません。の続きとなります。
前回はありがとうございました。
ゲームの団員一覧を作成しようと思い後々誰でも弄れるような仕様にしたく作っております。
1.【auto_open】で【Listview】の初期処理
2.【読込ボタン】を押すと団員リストを読み込み
3.Listviewをクリックすると登録フォームを開く
4.登録フォームから【更新ボタン】を押すと同じ行のデータを上書きする。
の4番でつまづいております。
'==================================
Sub 団員登録更新処理()
With 団員登録
No = .TextBox1
名前 = .TextBox2
レベル = .TextBox3
貢献度 = .TextBox4
In率 = .TextBox5
最大戦闘力 = .TextBox6
最終更新日 = Date
備考 = .TextBox8
End With
With 団員一覧.ListView1.ListItems.Add
.Text = No
.SubItems(1) = 名前
.SubItems(2) = レベル
.SubItems(3) = 貢献度
.SubItems(4) = In率
.SubItems(5) = 最大戦闘力
.SubItems(6) = 最終更新日
.SubItems(7) = 備考
End With
End Sub
'==================================
登録フォームを開く、内容を編集する、更新ボタンを押す
を作成したのですが、
帰ってきたデータをそのまま返しても次に新しい行が作られます
No 名前 レベル 貢献度
1 愛沢 48 100000
2 ヘラ 666 666666
とあるデータに更新を押すと
No 名前 レベル 貢献度
1 愛沢 48 100000
2 ヘラ 666 666666
2 ヘラ 666 666666
2 ヘラ 666 666666
2 ヘラ 666 666666
と押す度に増えていきます。
※見づらい為5カラム目以降は省略しております。
流石に、この部分に対して【団員一覧.ListView1.ListItems.Clear】とやってしまうと全部消えてしまいますし・・・
お手すきの方がいらっしゃいましたら、よろしくお願いいたします。
|
|
愛沢
- 19/1/27(日) 11:04 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
≪
