- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何删除“复选框”所选择的信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64452)
-- 发布时间：2015/2/13 22:19:00
-- 如何删除“复选框”所选择的信息
此主题相关图片如下：78955.jpg
-- 发布时间：2015/2/13 23:50:00
--
例如删除表中所有复选框已经选中的行：
For Each r As Row In Tables("产品").GetCheckedRows
r.Delete
Next
-- 发布时间：2015/2/14 0:54:00
--
如果没有选择复选框，删除能否提示“请选择要删除的信息”
-- 发布时间：2015/2/14 8:42:00
--
if Tables("产品").GetCheckedRows.count=0 then
messageobx.show("请选择")
else
or Each r As Row In Tables("产品").GetCheckedRows
r.Delete
Next
r.Delete
Next
end if
-- 发布时间：2015/2/14 12:42:00
--
此主题相关图片如下：236.jpg
-- 发布时间：2015/2/14 14:07:00
--
http://www.foxtable.com/help/topics/0326.htm
-- 发布时间：2015/2/14 18:56:00
--
Dim Result As DialogResult
If Result = DialogResult.NO Then
If MessageBox.Show("请选择需要删除的信息?","提示")
End If
If Tables("产品目录").Rows.Count > 0 Then
If MessageBox.Show("是否删除产品信息?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
For i As Integer = Tables("产品目录").Rows.Count -1 To 0 Step -1
If Tables("产品目录").Rows(i).Checked = True Then
Tables("产品目录").Rows(i).Delete
End If
Next
End If
End If
End If
登记删除没有反应，麻烦看看代码那里有错
-- 发布时间：2015/2/14 18:56:00
--
单击
-- 发布时间：2015/2/15 8:43:00
--
上例子吧.
-- 发布时间：2015/2/15 8:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:逸新系统.table |