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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  二进制多文件增加多行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117855)

--  作者：ZJZK2018
--  发布时间：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编辑过]

--  作者：有点甜
--  发布时间：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
--  发布时间：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编辑过]

--  作者：有点甜
--  发布时间：2018/4/20 9:07:00
--

1、报什么错？

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

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

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

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

--  作者：ZJZK2018
--  发布时间：2018/4/20 9:47:00
--
有点甜老师：
在ListBox1中拖放文件，我的需求是：
1、把ListBox1中的值分别增加到关联表Tables("桩基资料.图像")中。
2、增加的图像名称根据父表的"桩位编号"、"施工工序"这二个列值，改变名称保存到数据库中。如："桩位编号"+"施工工序"+“001，002....”

--  作者：有点甜
--  发布时间：2018/4/20 10:39:00
--
上传具体实例测试。

--  作者：ZJZK2018
--  发布时间：2018/4/20 13:14:00
--

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

--  作者：有点甜
--  发布时间：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

--  作者：ZJZK2018
--  发布时间：2018/4/21 10:35:00
--
有点甜老师：
我在关闭“桩基图像”窗口时出现，“未将对象引用设置到对象的实例”的错误

--  作者：有点蓝
--  发布时间：2018/4/21 11:06:00
--
窗口关闭事件有没有写什么代码？