各位高人..下面这断代码当按钮按下后,checkbox选中的时候,更新!!!急!!!救命啊!

[tengye19840704]

path = "G:\MailInfo.csv"
'MailInfoファイルを読む
streamRead = New StreamReader(path, System.Text.Encoding.Default)
strLine = streamRead.ReadLine
Do While strLine <> ""
Dim lvItem As ListViewItem
lvItem = New ListViewItem
strLine.Trim()
a = strLine.Split(",")
lvItem.SubItems.Add(a(0))
lvItem.SubItems.Add(a(1))
DataInfo1.MailAddres = "asdfsdf"
DataList.Add(DataInfo1)
DataInfo1 = DataList(MailUpdateIndex)
If DataInfo1.MailAddres.Contains(a(1)) = True Then
CheckBoxes.Checked = True
End If
adresusenntakugamenn.Items.Add(lvItem)
strLine = ""
strLine = streamRead.ReadLine
Loop
strLine = streamRead.ReadLine()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For Each item As ListViewItem In Me.adresusenntakugamenn.Items
If item.Checked Then
blnChecked = True
/* DataInfo1.MailName = "group"
DataInfo1.MailAddres = "[e-mail]"
DataList.Add(DataInfo1)
DataInfo1 = DataList(MailUpdateIndex)
lvItem.SubItems.Add(DataInfo1.MailName)
lvItem.SubItems.Add(DataInfo1.MailAddres)*/

End If
Next
'一つデータを選択しない
If Not blnChecked Then
MessageBox.Show("データを選択してください")
End If

各位高人..上面那断代码当按钮按下后,checkbox选中的时候,被选中的一行的数据进行修改更新成新的数据,应该怎么写/* */内的代码是错的.

[sjm2003]

日文的注释看不懂 啊！

[tengye19840704]

看代码看不懂么?注释没用.就是说是一行一行读文件呢..高人哥..急啊!

[lyq198345]

For Each item As ListViewItem In Me.adresusenntakugamenn.Items
If item.Checked Then
blnChecked = True
/* DataInfo1.MailName = "group"
DataInfo1.MailAddres = "[e-mail]"
DataList.Add(DataInfo1)
DataInfo1 = DataList(MailUpdateIndex)
lvItem.SubItems.Add(DataInfo1.MailName)
lvItem.SubItems.Add(DataInfo1.MailAddres)*/

End If
Next
改成
For Each item As ListViewItem In Me.adresusenntakugamenn.Items
If item.Checked Then
blnChecked = True /*这个blnChecked 不知道你什么用 我给你留着*/
item.SubItems.Remove(1) /*这里我用0，1写死了item的索引
index，你根据情况改，最好不要写死，方便以后好扩展*/
item.SubItems.Add("[e-mail]");
item.SubItems.Remove(0)
item.SubItems.Add("group");
End If
Next

[tengye19840704]

End If
Next
'一つデータを選択しない
If Not blnChecked Then
MessageBox.Show("データを選択してください")
End If
那个东西是干这个用的.没选中时就弹框.
上面那个有错误 item.SubItems.Remove(1) //这个报错.
item.SubItems.Add("[e-mail]");
item.SubItems.Remove(0) //这个也报错.
item.SubItems.Add("group");
用VB.NET写的...就是想把CHECKBOX选中行更行了,唉..小弟快疯

[tengye19840704]

快来看哇