关于表同步的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于表同步的问题

共有3962人关注过本帖树形打印复制链接主题：关于表同步的问题

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/15 14:42:00 [只看该作者]

还出错，就上传例子

[此贴子已经被作者于2015/6/15 14:43:01编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/15 14:45:00 [只看该作者]

Dim Cols1() As String = {"序号","物料编码","数量"}
Dim Cols2() As String = {"物料_序号","物料_物料编码","物料_单用量"}
For Each dr1 As DataRow In DataTables("bom").Select("成品编码 = '" & mbtname & "'")
    Dim filter As String = "物料_物料编码 = '" & dr1("物料编码") & "'"
    If mtz = Nothing Then
        fitler &= " and 通知单号 is null"
    Else
        filter &= " and 通知单号 = '" & mtz & "'"
    End If
    If DataTables("物料管理系统").Find(filter) Is Nothing Then
        Dim dr2 As DataRow = DataTables("物料管理系统").AddNew()
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
        dr2("通知单号") = mtz
        dr2("成品编码") = mbtname
    End If
Next

dj68301367

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

加好友

发短信

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/15 16:02:00 [只看该作者]

还是不行呀

[此贴子已经被作者于2015/6/15 16:10:07编辑过]

dj68301367

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

加好友

发短信

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/15 16:13:00 [只看该作者]

做了一些检测事项。复制过去就少了锡丝。。但msgbox(dr1("物料名称")) 会显示锡丝

If DataTables("物料管理系统").Find("物料_物料编码 = '" & dr1("物料编码") & "' And 通知单号 = '" & mtz & "'" ) IsNot Nothing Then 会显示 msgbox("AA")

Dim Cols1() As String = {"序号","物料编码","数量"}

Dim Cols2() As String = {"物料_序号","物料_物料编码","物料_单用量"}

For Each dr1 As DataRow In DataTables("bom").Select("成品编码 = '" & mbtname & "'")

msgbox(dr1("物料名称"))

If dr1("物料名称")="锡丝" Then

If DataTables("物料管理系统").Find("物料_物料编码 = '" & dr1("物料编码") & "' And 通知单号 = '" & mtz & "'" ) IsNot Nothing Then

msgbox("AA")

Else

msgbox("BB")

End If

If DataTables("物料管理系统").Find("物料_物料编码 = '" & dr1("物料编码") & "' And 通知单号 = '" & mtz & "'" ) Is Nothing Then

'msgbox(dr1("物料名称"))

Dim dr2 As DataRow = DataTables("物料管理系统").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

dr2("通知单号") = mtz

dr2("成品编码") = mbtname

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/15 16:19:00 [只看该作者]

上传例子，不可能不行。

dj68301367

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

加好友

发短信

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/15 16:49:00 [只看该作者]

做简单例子调试没有问题，不知问题出在那里？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/15 16:56:00 [只看该作者]

代码应该是没有错的。你看看是不是你的表数据有什么问题。

看一下比如钨丝的数据列，有什么特别之处；而且，你看一下你的表里面是否已经就包含了那个物料了？

dj68301367

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

加好友

发短信

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/15 17:11:00 [只看该作者]

表里面确定没有锡丝。BOM里是有的。

能不能远程帮一下忙，能查的都查过了。

不单单是锡丝，每个BOM都会有少一二个的。

[此贴子已经被作者于2015/6/15 17:11:26编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/15 17:14:00 [只看该作者]

加入代码，截图

msgbox("123" & dr1("物料编码") & "456" & mtz & "789")

dj68301367

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

加好友

发短信

等级：小狐帖子：358 积分：2719 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2015/6/15 17:30:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：fa.jpg

截图如上，代码如下

Dim Cols1() As String = {"序号","物料编码","数量"}

Dim Cols2() As String = {"物料_序号","物料_物料编码","物料_单用量"}

For Each dr1 As DataRow In DataTables("bom").Select("成品编码 = '" & mbtname & "'")

msgbox("123" & dr1("物料编码") & "456" & mtz & "789")

Dim filter As String = "物料_物料编码 = '" & dr1("物料编码") & "'"

If mtz = Nothing Then

filter = filter & " and 通知单号 is null"

Else

filter = filter & " and 通知单号 = '" & mtz & "'"

End If

If DataTables("物料管理系统").Find(filter) Is Nothing Then

Dim dr2 As DataRow = DataTables("物料管理系统").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

dr2("通知单号") = mtz

dr2("成品编码") = mbtname

End If

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

总数 31 上一页 1 2 3 4 下一页

主题：关于表同步的问题