Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二进制多文件增加多行


  共有2657人关注过本帖树形打印复制链接

主题：二进制多文件增加多行
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		二进制多文件增加多行  发帖心情 Post By：2018/4/19 22:45:00 [显示全部帖子]

老师：
下面这段代码如何修改：

Dim lstbox As WinForm.ListBox = e.Form.Controls("zjListBox1")
Dim Lst As New List(Of String)
Dim Arys() As String

For Each flt As String In lstbox.Items
    lst.Add(flt)
Next
Arys = lst.ToArray()
For i As Integer = 0 To arys.length - 1
    Dim ndr As Row = Tables("桩基资料.图像").AddNew
    ndr("图像名称") = ary(i)
Next
[此贴子已经被作者于2018/4/21 10:32:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/19 23:45:00 [显示全部帖子]

老师：
下面这段代码出错了，“图像上传”没有数据：
Dim lstbox As WinForm.ListBox = e.Form.Controls("zjListBox1")
For Each flt As String In lstbox.Items
    Dim ndr As Row = Tables("桩基资料.图像").AddNew
    Dim fdr As DataRow = DataTables("桩基资料").Find("图像编号 = '" & ndr("图像编号") & "'")
    If fdr IsNot Nothing  Then
        If fdr.IsNull("桩位编号") Then
            MessageBox.Show("请先输入桩位编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Cancel = True
        Else
            Dim fl As String = FileSys.GetName(flt)
            fl = fdr("桩位编号") & fdr("施工工序") & ".jpg"
            ndr("图像名称") = fl
            ndr.Save '必须先保存
            ndr.DataRow.SQLInsertFile("图像上传",fl) '插入文件
            ndr.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
        End If
    End If
    
Next


[此贴子已经被作者于2018/4/19 23:46:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/20 9:47:00 [显示全部帖子]

有点甜老师：
在ListBox1中拖放文件，我的需求是：
1、把ListBox1中的值分别增加到关联表Tables("桩基资料.图像")中。
2、增加的图像名称根据父表的"桩位编号"、"施工工序"这二个列值，改变名称保存到数据库中。如："桩位编号"+"施工工序"+“001，002....”
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/20 13:14:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:zk文件拖放.zip
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/21 10:35:00 [显示全部帖子]

有点甜老师：
我在关闭“桩基图像”窗口时出现，“未将对象引用设置到对象的实例”的错误
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/21 11:14:00 [显示全部帖子]

窗口关闭事件：

Dim frm As WinForm.Form = Forms("桩基图像")
frm.BaseForm.AllowDrop = False

RemoveHandler frm.BaseForm.DragEnter, AddressOf ZjListBox1_DragEnter
RemoveHandler frm.BaseForm.DragDrop, AddressOf ZjListBox1_DragDrop2

Dim ZjListBox1 As WinForm.ListBox = e.Form.Controls("ZjListBox1")

RemoveHandler ZjListBox1.BaseControl.DragEnter, AddressOf ZjListBox1_DragEnter
RemoveHandler ZjListBox1.BaseControl.DragDrop, AddressOf ZjListBox1_DragDrop

ZjListBox1.BaseControl.AllowDrop = False


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:zk文件拖放.zip


[此贴子已经被作者于2018/4/21 11:14:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ZJZK2018
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00 		  发帖心情 Post By：2018/4/26 6:57:00 [显示全部帖子]

老师你好：
我查了帮助就是查不到在上传文件时，同时保存在本地文件夹内，下面这段代码如何调整？谢谢

Dim ltbox As WinForm.ListBox = e.Form.Controls("zjListBox1")
Dim fdr As Row = Tables("桩基资料").current
If fdr IsNot Nothing  Then
    If fdr.IsNull("桩位编号") Then
        MessageBox.Show("请先输入桩位编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        For Each flt As String In ltbox.Items
            Dim ndr As Row = Tables("桩基资料.桩基图像").AddNew
            Dim i As Integer = Tables("桩基资料.桩基图像").rows.count
            Dim fl = fdr("桩位编号") & "号-" & format(i, "00") 
            ndr("图像名称") = fl
            ndr("图像类型") = flt.SubString(flt.LastIndexOf("."))
            ndr.Save '必须先保存
            ndr.DataRow.SQLInsertFile("附件",flt) '插入文件
            ndr.DataRow.SQLSetValue("CRC", CRCCheckFile(flt)) '保存crc检验值
            
            '==============图像本地保存===============
            If fdr.IsNull("单位工程") = False Then
                Dim pth As String = ProjectPath & "Attachments\用户工程\" & fdr("项目编号") & fdr("工程名称") & "\现场图像\" & fdr("单位工程") & "\" & fdr("分部分项") & "\"
                If FileSys.DirectoryExists(pth) = False Then
                    FileSys.CreateDirectory(pth)
                End If
                Dim th As String = pth & ndr("图像名称") & ndr("图像类型")

            Else
                Dim pth As String = ProjectPath & "Attachments\用户工程\" & fdr("项目编号") & fdr("工程名称") & "\现场图像\" & fdr("分部分项") & "\"
                If FileSys.DirectoryExists(pth) = False Then
                    FileSys.CreateDirectory(pth)
'这里***
                End If
            End If
            
            
        Next
    End If
End If
ltbox.Items.Clear() '清除列表数据
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询