二进制多文件增加多行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2448人关注过本帖树形打印复制链接主题：二进制多文件增加多行

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)

Arys = lst.ToArray()

For i As Integer = 0 To arys.length - 1

Dim ndr As Row = Tables("桩基资料.图像").AddNew

ndr("图像名称") = ary(i)

[此贴子已经被作者于2018/4/21 10:32:31编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/19 22:58:00 [只看该作者]

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

For Each flt As String In lstbox.Items
Dim ndr As Row = Tables("桩基资料.图像").AddNew
ndr("图像名称") = flt
Next

ZJZK2018

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

[此贴子已经被作者于2018/4/19 23:46:30编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/20 9:07:00 [只看该作者]

1、报什么错？

2、你这段代码要实现什么功能？试试改成

Dim ndr As Row = Tables("图像").AddNew

Dim fdr As DataRow = DataTables("桩基资料").Find("图像编号 = '" & ndr("图像编号") & "'")

3、如果还有问题上传实例具体说明

ZJZK2018

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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....”

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/20 10:39:00 [只看该作者]

上传具体实例测试。

ZJZK2018

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2018/4/20 13:14:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:zk文件拖放.zip

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/20 15:08:00 [只看该作者]

Dim lstbox 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 lstbox.Items
            Dim ndr As Row = Tables("桩基资料.现场图像").AddNew
            Dim i As Integer = Tables("桩基资料.现场图像").rows.count
            Dim fl = fdr("桩位编号") & fdr("工程部位") & format(i, "000") & ".jpg"
            ndr("图像名称") = fl
            ndr.Save '必须先保存
            ndr.DataRow.SQLInsertFile("图像资料",flt) '插入文件
            ndr.DataRow.SQLSetValue("CRC", CRCCheckFile(flt)) '保存crc检验值
        Next
    End If
End If