以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]将拖拽进列表框的文件路径写入数据表当前行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144776)

--  作者：天一生水 --  发布时间：2019/12/29 18:34:00 --  [求助]将拖拽进列表框的文件路径写入数据表当前行 老师好！ 我想把拖拽进列表框中的文件路径保存到数据表，在全局代码中的代码如下，但是不起作用，请老师指教。 谢谢！ 全局代码： 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  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:同步数据测试.foxdb

--  作者：有点蓝 --  发布时间：2019/12/29 20:13:00 --   AddHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop 改为 AddHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop2