[浏览完整版]
标题：[求助]table表数据
1楼
riyuan 发表于：2024/1/5 15:52:00请教在将表中的数据添加到listbox后，如何删除已经添加的表数据，如果删除listbox的数据后，如何恢复表中已对应删除的数据
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获.png2楼
有点蓝 发表于：2024/1/5 16:06:00怎么【将表中的数据添加到listbox】的？具体代码看看
3楼
riyuan 发表于：2024/1/5 16:10:00请教
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获.png4楼
有点蓝 发表于：2024/1/5 16:22:00next前面加上r.delete即可
……
r.delete
next
另外上面代码里虽然使用了SQLcommand，除了费几行代码，但是没有任何用处呀，
5楼
riyuan 发表于：2024/1/5 16:30:00sqlcommand已经删除，加上了r.delete可实现了功能，在取消选择后，如何恢复表中删除的数据
6楼
riyuan 发表于：2024/1/5 16:31:00这是取消选择的代码
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.Items.RemoveAt(lst.SelectedIndex)
7楼
riyuan 发表于：2024/1/5 16:31:00但表中删除的数据没有恢复
8楼
有点蓝 发表于：2024/1/5 16:38:00Dim 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)
9楼
riyuan 发表于：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)
10楼
riyuan 发表于：2024/1/5 19:39:00此主题相关图片如下：2 (2).png
这是界面
此主题相关图片如下：1.png