列表中的附件代码
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编辑过]
加好友 
发短信
Post By：2024/5/11 16:10:00 [只看该作者]
此主题相关图片如下：2.png