[求助]将拖拽进列表框的文件路径写入数据表当前行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好！

我想把拖拽进列表框中的文件路径保存到数据表，在全局代码中的代码如下，但是不起作用，请老师指教。

谢谢！

全局代码：

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

End Sub

此主题相关图片如下：截屏图片 (5).jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:同步数据测试.foxdb

主题：[求助]将拖拽进列表框的文件路径写入数据表当前行