[求助]引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码没问题啊。

以下是引用大红袍在2016/8/10 9:11:00的发言：
加入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

老师，下面是按钮代码我要把他摆在客户往来表里同事实时更新。

Dim nms As List(of String) = DataTables("fa piao管理").GetValues("客户")

DataTables("客户往来").StopRedraw()

For Each nm As String In nms

Dim dr As DataRow = DataTables("客户往来").AddNew()

dr("客户") = nm

dr("开piao_金额") = DataTables("fa piao管理").Compute("Sum(出库_价税合计)", "客户 = '" & nm & "' And 使用 = 1")

dr("开piao_未开piao金额") = DataTables("fa piao管理").Compute("Sum(出库_价税合计)", "客户 = '" & nm & "' And 使用 = 0")

DataTables("客户往来").ResumeRedraw()

老师，我要让提示库存不足再增加一个条件，即：入库明细表中的商品名称（商品名称、规格）

If e.DataCol.name ="出库_数量" Then

Dim dr As DataRow = DataTables("入库明细").find("规格 ='" & e.DataRow("规格") & "'")

If dr IsNot Nothing Then

If dr("库存")=0 OrElse dr.Isnull("库存") Then

messagebox.show("库存为0!")

e.Cancel=True

Else If dr("库存")< e.newValue Then

messagebox.show("现有库存不足")

e.Cancel=True

End If

Else

messagebox.show("没有对应的物品库存!")

e.Cancel=True

End If

Dim dr As DataRow = DataTables("入库明细").find("规格 ='" & e.DataRow("规格") & "' And 商品名称 = '" & e.DataRow("商品名称") & "'")

主题：[求助]引用