[讨论]学习狐表--关于不同表　同步录入　如何实现? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]学习狐表--关于不同表　同步录入　如何实现?

共有13128人关注过本帖树形打印复制链接主题：[讨论]学习狐表--关于不同表　同步录入　如何实现?

布莱克朱

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

加好友

发短信

等级：三尾狐帖子：623 积分：3897 威望：0 精华：0 注册：2011/8/3 22:13:00

Post By：2012/3/12 20:44:00 [只看该作者]

用find怎么不行呢?你试试这个代码.

Select Case e.DataCol.Name
    Case "单位" ,"规格","批号","吨位","库位"
        Dim dr As DataRow = e.DataRow
        Dim Filter As String
        Filter = "单位 = '" & dr("单位") & "' And 规格 ='" & dr("规格") & "' And 批号 ='" & dr("批号") & "' And 吨位='" & dr("吨位") & "'And 库位='" & dr("库位") &"'"
        Dim dr1 As DataRow = DataTables("总库存").Find(Filter)
        If dr1 Is Nothing Then
            Dim r As DataRow = DataTables("总库存").AddNew()
            dr1("单位") = r("单位")
            dr1("规格") = r("规格")
            dr1("批号") = r("批号")
            dr1("吨位") = r("吨位")
            dr1("库位") = r("库位")
        End If
    End If
End Select

[此贴子已经被作者于2012-3-12 20:47:30编辑过]

jolon

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

加好友

发短信

等级：幼狐帖子：80 积分：687 威望：0 精华：0 注册：2012/3/9 13:30:00

Post By：2012/3/12 23:31:00 [只看该作者]

请问这个应该放在哪里

狐狸爸爸

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

加好友

发短信

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

Post By：2012/3/12 23:32:00 [只看该作者]

放在DataColChanged事件。

jolon

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

加好友

发短信

等级：幼狐帖子：80 积分：687 威望：0 精华：0 注册：2012/3/9 13:30:00

Post By：2012/3/12 23:37:00 [只看该作者]

放进父表或者子表不生效，另外代码是不是多了一个END IF

还有老大这个时间还在真辛苦了

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/3/13 8:00:00 [只看该作者]

不好意思是多了个end if

搞糊涂了,应该这样.

Select Case e.DataCol.Name
    Case "单位" ,"规格","批号","吨位","库位"
        Dim dr As DataRow = e.DataRow
        Dim Filter As String
        Filter = "单位 = '" & dr("单位") & "' And 规格 ='" & dr("规格") & "' And 批号 ='" & dr("批号") & "' And 吨位='" & dr("吨位") & "'And 库位='" & dr("库位") &"'"
        Dim dr1 As DataRow = DataTables("总库存").Find(Filter)
        If dr1 Is Nothing Then
            Dim r As DataRow = DataTables("总库存").AddNew()
            r("单位") = dr("单位")
            r("规格") = dr("规格")
            r("批号") = dr("批号")
            r("吨位") = dr("吨位")
            r("库位") = dr("库位")
        End If
    End If
End Select

[此贴子已经被作者于2012-3-13 8:02:09编辑过]

jolon

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

加好友

发短信

等级：幼狐帖子：80 积分：687 威望：0 精华：0 注册：2012/3/9 13:30:00

Post By：2012/3/15 23:33:00 [只看该作者]

以下是引用blackzhu在2012-3-13 8:00:00的发言：

不好意思是多了个end if

搞糊涂了,应该这样.

Select Case e.DataCol.Name
    Case "单位" ,"规格","批号","吨位","库位"
        Dim dr As DataRow = e.DataRow
        Dim Filter As String
        Filter = "单位 = '" & dr("单位") & "' And 规格 ='" & dr("规格") & "' And 批号 ='" & dr("批号") & "' And 吨位='" & dr("吨位") & "'And 库位='" & dr("库位") &"'"
        Dim dr1 As DataRow = DataTables("总库存").Find(Filter)
        If dr1 Is Nothing Then
            Dim r As DataRow = DataTables("总库存").AddNew()
            r("单位") = dr("单位")
            r("规格") = dr("规格")
            r("批号") = dr("批号")
            r("吨位") = dr("吨位")
            r("库位") = dr("库位")
        End If
    End If
End Select