老师好!
我想把拖拽进列表框中的文件路径保存到数据表,在全局代码中的代码如下,但是不起作用,请老师指教。
谢谢!
全局代码:
Public Sub ListBox1_DragDrop2(sender As System.Object, e As System.Windows.Forms.DragEventArgs)
If Forms("邮件发送").Opened Then
Dim dr As Row = Tables("邮件发送").Current '数据表的当前行
If dr Is Nothing Then Return
Dim files = e.Data.GetData( System.Windows.Forms.DataFormats.FileDrop)
For Each file As String In files
Forms("邮件发送").Controls("ListBox1").Items.Add(file)
Forms("邮件发送").Controls("ListBox1").SelectedIndex = Forms("邮件发送").Controls("ListBox1").Items.Count -1 '增加代码,选中新增的值
If dr.IsNull("附件") Then
dr("附件") = file '写入文件名
Else
dr("附件") &= vbcrlf & file '写入文件名
End If
Next
End If
End Sub
此主题相关图片如下:截屏图片 (5).jpg