[浏览完整版]
标题：单埚表中的数据，显示相应的附件列表
11楼
有点蓝 发表于：2024/5/11 16:10:00Forms("jcgl").Controls("listbox1").items.clear
If dt.datarows.Count > 0 Then
' MsgBox(dt.datarows(0).Lines("附件").Count)
Forms("jcgl").Controls("listbox1").ComboList = dt.datarows(0)("附件").replace(" ", "|")
End If
12楼
riyuan 发表于：2024/5/11 16:38:00列表中的附件代码
Dim Value As String = Forms("jcgl").Controls("label10").text
Dim sps() As Char = {"|"}
Dim Names() As String = Value.Split(sps)
For Each name As String In Names
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
lst.Items.add(Name)
Next
保存代码
For i As Integer = 0 To lst.Items.Count - 1
cmd.CommandText = "Insert Into 党员奖惩附件(党员编号,姓名,奖惩时间,附件) values ('" & bh & "','" & xm & "','" & jcsj & "','" & lst.Items(i) & "')"
cmd.ExecuteNonQuery()
Next
请教在保存代码中如何将列表中的数据保存在同一行
[此贴子已经被作者于2024/5/11 16:39:18编辑过]
13楼
有点蓝 发表于：2024/5/11 17:34:00dim s as string = ""
Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
For i As Integer = 0 To lst.Items.Count - 1
s = s & " " & lst.Items(i)
Next
lst = e.Form.Controls("ListBox1")
For i As Integer = 0 To lst.Items.Count - 1
s = s & " " & lst.Items(i)
Next
cmd.CommandText = "Insert Into 党员奖惩附件(党员编号,姓名,奖惩时间,附件) values ('" & bh & "','" & xm & "','" & jcsj & "','" & s.trim() & "')"
cmd.ExecuteNonQuery()
14楼
riyuan 发表于：2024/5/11 19:06:00
此主题相关图片如下：2.png
为什么更新代码不能正常执行，提以下错误
无效的 SQL语句；期待 'DELETE'、'INSERT'、'PROCEDURE'、'SELECT'、或 'UPDATE'
15楼
有点蓝 发表于：2024/5/12 20:14:00update，不是undate