- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]table表数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=189937)
-- 发布时间：2024/1/5 15:52:00
-- [求助]table表数据
请教在将表中的数据添加到listbox后，如何删除已经添加的表数据，如果删除listbox的数据后，如何恢复表中已对应删除的数据
此主题相关图片如下：捕获.png
-- 发布时间：2024/1/5 16:06:00
--
怎么【将表中的数据添加到listbox】的？具体代码看看
-- 发布时间：2024/1/5 16:10:00
--
请教
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获.png-- 发布时间：2024/1/5 16:22:00
--
next前面加上r.delete即可
……
r.delete
next
另外上面代码里虽然使用了SQLcommand，除了费几行代码，但是没有任何用处呀，
-- 发布时间：2024/1/5 16:30:00
--
sqlcommand已经删除，加上了r.delete可实现了功能，在取消选择后，如何恢复表中删除的数据
-- 发布时间：2024/1/5 16:31:00
--
这是取消选择的代码
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.Items.RemoveAt(lst.SelectedIndex)
-- 发布时间：2024/1/5 16:31:00
--
但表中删除的数据没有恢复
-- 发布时间：2024/1/5 16:38:00
--
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
dim r as row = tables("某表").addnew
r("姓名") = lst.Items(lst.SelectedIndex)
lst.Items.RemoveAt(lst.SelectedIndex)
-- 发布时间：2024/1/5 19:38:00
--
插入数据库提示错误
请教是什么原因
数据库就只有编号和姓名字段
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
Dim cmd As New SQLCommand
cmd.C
For i As Integer = 0 To lst.Items.Count - 1
cmd.CommandText = "Insert Into 党员慰问记录表(党员编号,姓名) values (\'" & lst.Items(i) & "\')"
cmd.ExecuteNonQuery()
Next
Messagebox.Show("保存成功", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
-- 发布时间：2024/1/5 19:39:00
--
此主题相关图片如下：2 (2).png
这是界面
此主题相关图片如下：1.png