引用（请版主看一下很急） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 引用（请版主看一下很急）

共有11911人关注过本帖树形打印复制链接主题：引用（请版主看一下很急）

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/22 14:14:00 [显示全部帖子]

呵呵，直接点，在增加列打勾的时候，你想在完成情况表做什么动作？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/22 15:39:00 [显示全部帖子]

        dr1= DataTables("完成情况").find(s)
        If dr("增加") = True AndAlso dr1 Is Nothing Then
            dr1 = DataTables("完成情况").Addnew
            For Each dc As DataCol In DataTables("完成情况").DataCols
                dr1(dc.name) = dr(dc.name)
            Next
            dr1.Save
        ElseIf dr("增加") = False AndAlso dr1 IsNot Nothing Then
            dr1.Delete
            dr1.save
        End If
    End If
End If

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/22 16:10:00 [显示全部帖子]

惭愧，我真的不明白你的意思，大家明白了吗？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/22 16:32:00 [显示全部帖子]

If e.DataCol.Name ="增加" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("计划号") Then
        MessageBox.Show("计划号不能为空!")
    Else
        Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" & dr("材质") & "'"
        dr1= DataTables("合同总览").find(s)
        If dr1 IsNot Nothing Then
            Dim val As Integer = dr("重量")
            If dr("增加") = False Then
                val = -val
            End If
            dr1("重量")+ = val
            dr1.Save()
        Else
            Dim Ls As String() = {"计划号","合同公司","订单号","材质","重量"}
            dr1 = DataTables("合同总览").AddNew()
            For Each s In Ls
                dr1(s) = dr(s)
            Next
            dr1("重量") = dr("重量")
            dr1.Save()
        End If
        dr.Save()

        If dr("增加") = True Then
            dr1= DataTables("完成情况").find(s)
            If dr1 Is Nothing Then
                dr1 = DataTables("完成情况").Addnew
            End If
            Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
            For Each nm As String In nms
                dr1(nm) = dr(nm)
            Next
        End If
    End If
End If

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/23 8:56:00 [显示全部帖子]

你的图片别人是看不到的，我10楼的代码应该可以的啊。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/23 9:32:00 [显示全部帖子]

改一下条件即可啊：

If e.DataCol.Name ="增加" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("计划号") Then
        MessageBox.Show("计划号不能为空!")
    Else
        Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" & dr("材质") & "'"
        dr1= DataTables("合同总览").find(s)
        If dr1 IsNot Nothing Then
            Dim val As Integer = dr("重量")
            If dr("增加") = False Then
                val = -val
            End If
            dr1("重量")+ = val
            dr1.Save()
        Else
            Dim Ls As String() = {"计划号","合同公司","订单号","材质","重量"}
            dr1 = DataTables("合同总览").AddNew()
            For Each s In Ls
                dr1(s) = dr(s)
            Next
            dr1("重量") = dr("重量")
            dr1.Save()
        End If
        dr.Save()

        If dr("增加") = True Then
            s = "计划号 = '" & dr("计划号") & "'and 材质 = '" & dr("材质") & "' and 砖号 = '" & dr("砖号") & "'"
            dr1= DataTables("完成情况").find(s)
            If dr1 Is Nothing Then
                dr1 = DataTables("完成情况").Addnew
            End If
            Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
            For Each nm As String In nms
                dr1(nm) = dr(nm)
            Next
        End If
    End If
End If

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/21 16:18:00 [显示全部帖子]

If dr("增加") = True Then
    s = "计划号 = '" & dr("计划号") & "'and 材质 = '" & dr("材质") & "' and 砖号 = '" & dr("砖号") & "'"
    dr1= DataTables("完成情况").find(s)
    If dr1 Is Nothing Then
        dr1 = DataTables("完成情况").Addnew
    End If
    Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

    dr1= DataTables("另一个表").find(s)
    If dr1 Is Nothing Then
        dr1 = DataTables("完成情况").Addnew
    End If
    Dim nms() As String = {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

End If

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/22 12:02:00 [显示全部帖子]

    dr1= DataTables("另一个表").find(s)
    If dr1 Is Nothing Then
        dr1 = DataTables("完成情况").Addnew
    End If
     nms() = New String() {"计划号","合同公司","订单号","材质","砖号"}
    For Each nm As String In nms
        dr1(nm) = dr(nm)
    Next

End If

下一主题 >> << 上一主题

主题：引用（请版主看一下很急）