以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]table表数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189937)

--  作者:riyuan
--  发布时间:2024/1/5 15:52:00
--  [求助]table表数据
请教在将表中的数据添加到listbox后,如何删除已经添加的表数据,如果删除listbox的数据后,如何恢复表中已对应删除的数据
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/1/5 16:06:00
--  
怎么【将表中的数据添加到listbox】的?具体代码看看
--  作者:riyuan
--  发布时间:2024/1/5 16:10:00
--  
请教
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/1/5 16:22:00
--  
next前面加上r.delete即可

……
r.delete
next

另外上面代码里虽然使用了SQLcommand,除了费几行代码,但是没有任何用处呀,

--  作者:riyuan
--  发布时间:2024/1/5 16:30:00
--  
sqlcommand已经删除,加上了r.delete可实现了功能,在取消选择后,如何恢复表中删除的数据
--  作者:riyuan
--  发布时间:2024/1/5 16:31:00
--  
这是取消选择的代码
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
 lst.Items.RemoveAt(lst.SelectedIndex)

--  作者:riyuan
--  发布时间: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)

--  作者: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)

--  作者:riyuan
--  发布时间:2024/1/5 19:39:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:2 (2).png
图片点击可在新窗口打开查看
这是界面
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看