主题：[求助]引用

 

If e.DataCol.name = "特别号码" Then
    If e.DataRow.IsNull("特别号码") Then
        e.DataRow("信息提示") = Nothing
    Else
        Dim fdr As DataRow = DataTables("表a").find("特别号码 = '" & e.DataRow("特别号码") & "'")
        If fdr IsNot Nothing Then
            e.DataRow("信息提示") = "该承兑汇piao在" & fdr("支付日期") & "已支付给" & fdr("供应商") & "了"
        End If
    End If
End If

 

 

 不需要改变存放路径的啊，你存放路径属性那里直接设置成 I:\piao据管理\应付款\Attachments\piao据分类\汇piao 就行的啊。

 复制文件，参考

 

http://www.foxtable.com/webhelp/scr/0342.htm

 

参考代码

 

If e.DataCol.Name = "特别号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("图片") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表B").Find("[特别号码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("图片") = dr("图片")
            Dim path As String
            If DataTables("表B").DataCols("图片").DefaultFolder  > "" Then
                path = DataTables("表B").DataCols("图片").DefaultFolder
            Else
                path = ProjectPath & "Attachments\"
            End If
            Dim path2 As String
            If e.DataTable.DataCols("图片").DefaultFolder > "" Then
                path2 = e.DataTable.DataCols("图片").DefaultFolder
            Else
                path2 = ProjectPath & "Attachments\"
            End If
            For Each s As String In e.DataRow.Lines("图片")
                If FileSys.FileExists(path & "\" & s) Then
                    FileSys.CopyFile(path & "\" & s, path2 & "\" & dr("图片"), True)
                End If
            Next
        End If
    End If
End If

 代码，没，问，题。

 

 自己好好看代码

 代码不用改啊。你去设置图片列的列属性->存放目录即可。

 加入msgbox，看是否触发了事件代码。

 看不懂你的意思。

代码没问题啊。

改一下试试

 

If e.DataCol.Name = "特别号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("图片") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表B").Find("[特别号码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("图片") = dr("图片")
            Dim path As String
            If DataTables("表B").DataCols("图片").DefaultFolder  > "" Then
                path = DataTables("表B").DataCols("图片").DefaultFolder.trim("\")
            Else
                path = ProjectPath & "Attachments"
            End If
            Dim path2 As String
            If e.DataTable.DataCols("图片").DefaultFolder > "" Then
                path2 = e.DataTable.DataCols("图片").DefaultFolder.trim("\")
            Else
                path2 = ProjectPath & "Attachments\"
            End If
            For Each s As String In e.DataRow.Lines("图片")
                If FileSys.FileExists(path & "\" & s) Then
                    FileSys.CopyFile(path & "\" & s, path2 & "\" & s, True)
                End If
            Next
        End If
    End If
End If