62,041
社区成员
发帖
与我相关
我的任务
分享急求刪除datagrid中選中checkbox的所在行資料的vb程式碼!
我用datargid顯示資料庫中某表的資料, 並用templatecolumn為每行資料加了一個checkbox, 請問應如何將所選中的checkbox所在行的資料從資料庫中刪除呢? 我找到很多程式碼但都是C#的, 但我祇想要vb的版本. 如果可能的話, 是否可以不另產生一個.vb的檔案, 而祇在.aspx檔案裡完成整個過程?
請各高手賜教!
請各高手賜教!
...全文
请发表友善的回复…
发表回复
21er 2006-02-22
- 打赏
- 举报
謝謝大家的回覆, 問題已解決!
21er 2006-02-22
- 打赏
- 举报
xmz4, 我試了你的方法, 但我的id取不到值......
可以給我一個包含datagrid的完整例子嗎? 謝謝~
可以給我一個包含datagrid的完整例子嗎? 謝謝~
孟子E章 2006-02-21
- 打赏
- 举报
http://dotnet.aspx.cc/ShowDetail.aspx?id=FF130C7F-3650-4DA6-8943-8AA4AF3E3459
zhangxiaopin 2006-02-21
- 打赏
- 举报
//*****删除记录函数
private sub DeleteRecord(byvael strid as string)
dim DGRidItems as datagriditem
'create is a checkbox
dim ckb as checkbox
for each DGRidItems in dgrid.items
ckb=(CheckBox)DGRidItems.items.cell[0].findcontrol("ckball");
if ckb.checked==true then
//***调用删除函数
Delete(strid);
end if
next
end sub
private sub DeleteRecord(byvael strid as string)
dim DGRidItems as datagriditem
'create is a checkbox
dim ckb as checkbox
for each DGRidItems in dgrid.items
ckb=(CheckBox)DGRidItems.items.cell[0].findcontrol("ckball");
if ckb.checked==true then
//***调用删除函数
Delete(strid);
end if
next
end sub
xmz4 2006-02-21
- 打赏
- 举报
mydg为datagrid的id
xmz4 2006-02-21
- 打赏
- 举报
最后别忘了加上
……
end if
next
……
end if
next
xmz4 2006-02-21
- 打赏
- 举报
……前面略吧，关键是以下
for i=0 to mydg.items.count-1
chk=mydg.items(i).cells(0).findcontrol("checkdel") '假设checkbox id为checkdel
if chk.checked then
dim id as string=cstr(mydg.items(i).cells(1).text)
conn.open()
sqlstr="delete from link where link_id=" & id 'link_id为你数据库中字段
cmd=new oledbcommand(sqlstr,conn)
cmd.executenonquery
conn.close()
for i=0 to mydg.items.count-1
chk=mydg.items(i).cells(0).findcontrol("checkdel") '假设checkbox id为checkdel
if chk.checked then
dim id as string=cstr(mydg.items(i).cells(1).text)
conn.open()
sqlstr="delete from link where link_id=" & id 'link_id为你数据库中字段
cmd=new oledbcommand(sqlstr,conn)
cmd.executenonquery
conn.close()
