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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码问题

共有2704人关注过本帖树形打印复制链接主题：[求助]代码问题

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

[求助]代码问题 发帖心情

Post By：2016/7/5 9:30:00 [只看该作者]

专家您好，我有3个表：当前表、能力表、生产表，分别如下：

当前表

此主题相关图片如下：当前表.bmp

能力表

此主题相关图片如下：能力表.bmp

生产表

此主题相关图片如下：生产表.bmp

在当前表的DataColChanged事件中编写代码如下：

Select Case e.DataCol.Name

Case "杆径","长度","编号"

Dim dc As DataRow = e.DataRow

Dim qc As DataRow

Dim pc As DataRow

Dim filter1 As String

Dim filter2 As String

filter1 = "杆径 = '" & dc("杆径") & "' And 长度 = '" & dc("长度") & "'"

filter2 = "编号 = '" & dc("编号") & "'"

pc = DataTables("能力表").Find(filter1)

If pc IsNot Nothing Then

qc = DataTables("生产表").Find(filter2)

If qc IsNot Nothing Then

If qc("工位") = "平锻机1"

dc("平锻机1") = pc("能力_350t")

End If

If qc("工位") = "平锻机2"

dc("平锻机2") = pc("能力_450t")

End If

If qc("工位") = "平锻机3"

dc("平锻机3") = pc("能力_500t")

End If

If qc("工位") = "平锻机4"

dc("平锻机4") = pc("能力_800t")

End If

End Select

目的是当生产表中在不同的合同中安排设备生产时，当前表可以将设备能力显示出来，但以上代码只显示“平锻机1”的能力，其他设备不显示，问题出在哪里？

大红袍

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

加好友

发短信

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

Post By：2016/7/5 9:38:00 [只看该作者]

[此贴子已经被作者于2016/7/5 9:37:50编辑过]

大红袍

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

加好友

发短信

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

Post By：2016/7/5 9:38:00 [只看该作者]

[此贴子已经被作者于2016/7/5 9:39:14编辑过]

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

Post By：2016/7/5 9:41:00 [只看该作者]

还是只在“平锻机1”列有数据，其他没有数据

大红袍

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

加好友

发短信

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

Post By：2016/7/5 9:46:00 [只看该作者]

Select Case e.DataCol.Name
    Case "杆径","长度","编号"
        Dim dc As DataRow = e.DataRow
        Dim pc As DataRow
        Dim filter1 As String
        Dim filter2 As String

        filter2 = "编号 = '" & dc("编号") & "'"
        For Each gw As String In DataTables("生产表").GetValues("工位", filter2)
            If e.DataTable.DataCols.contains(gw) Then
                Dim nl As String = ""
                If gw = "平锻机1"
                    nl = "能力_350t"
                ElseIf gw = "平锻机2"
                    nl = "能力_450t"
                ElseIf gw = "平锻机3"
                    nl = "能力_500t"
                ElseIf gw = "平锻机4"
                    nl = "能力_800t"
                End If
                filter1 = "杆径 = '" & dc("杆径") & "' And 长度 = '" & dc("长度") & "' and " & nl & " is not Null"
                pc = DataTables("能力表").Find(filter1)
                If pc IsNot Nothing Then
                    dc(gw) = pc(nl)
                Else
                    dc(gw) = Nothing
                End If

            End If
        Next

End Select

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

Post By：2016/7/5 9:51:00 [只看该作者]

谢谢专家！

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

Post By：2016/7/5 10:58:00 [只看该作者]

Select Case e.DataCol.Name
    Case "杆径","长度","编号"
        Dim dc As DataRow = e.DataRow
        Dim pc As DataRow
        Dim filter1 As String
        Dim filter2 As String

        filter2 = "编号 = '" & dc("编号") & "'"
        For Each gw As String In DataTables("生产表").GetValues("工位", filter2)
            If e.DataTable.DataCols.contains(gw) Then
                Dim nl As String = ""
                If gw = "平锻机1"
                    nl = "能力_350t"
                ElseIf gw = "平锻机2"
                    nl = "能力_450t"
                ElseIf gw = "平锻机3"
                    nl = "能力_500t"
                ElseIf gw = "平锻机4"
                    nl = "能力_800t"
                End If
                filter1 = "杆径 = '" & dc("杆径") & "' And 长度 = '" & dc("长度") & "' and " & nl & " is not Null"
                pc = DataTables("能力表").Find(filter1)
                If pc IsNot Nothing Then
                    dc(gw) = pc(nl) 在“当前表”中，实际列的名称与“生产表”不一致。在实际案例中为“本工序_日生产能力_平锻机1”、“本工序_日生产能力_平锻机2”......“本工序_日生产能力_平锻机6”.不能直接用 dc(gw) = pc(nl)，怎么改？
                Else，
                    dc(gw) = Nothing
                End If

            End If
        Next

End Select

大红袍

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

加好友

发短信

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

Post By：2016/7/5 11:03:00 [只看该作者]

Select Case e.DataCol.Name
    Case "杆径","长度","编号"
        Dim dc As DataRow = e.DataRow
        Dim pc As DataRow
        Dim filter1 As String
        Dim filter2 As String

        filter2 = "编号 = '" & dc("编号") & "'"
        For Each gw As String In DataTables("生产表").GetValues("工位", filter2)
            gw = "本工序_日生产能力_" & gw
            If e.DataTable.DataCols.contains(gw) Then
                Dim nl As String = ""
                If gw = "平锻机1"
                    nl = "能力_350t"
                ElseIf gw = "平锻机2"
                    nl = "能力_450t"
                ElseIf gw = "平锻机3"
                    nl = "能力_500t"
                ElseIf gw = "平锻机4"
                    nl = "能力_800t"
                End If
                filter1 = "杆径 = '" & dc("杆径") & "' And 长度 = '" & dc("长度") & "' and " & nl & " is not Null"
                pc = DataTables("能力表").Find(filter1)
                If pc IsNot Nothing Then
                    dc(gw) = pc(nl)
                Else，
                    dc(gw) = Nothing
                End If

            End If
        Next

End Select

陈卫

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

加好友

发短信

等级：幼狐帖子：126 积分：813 威望：0 精华：0 注册：2015/10/22 10:35:00

Post By：2016/7/5 11:14:00 [只看该作者]

这是我的实际代码

Case "品种_杆径","品种_长度","合同编号"

Dim dc As DataRow = e.DataRow

Dim pc As DataRow

Dim filter1 As String

Dim filter2 As String

filter2 = "执行合同编号 = '" & dc("合同编号") & "'"

For Each gw As String In DataTables("生产安排表").GetValues("工位", filter2)

gw = "本工序_日生产能力_" & gw

If e.DataTable.DataCols.contains(gw) Then

Dim nl As String = ""

If gw = "平锻机1"

nl = "日生产能力_锻造_350t"

ElseIf gw = "平锻机2"

nl = "日生产能力_锻造_450t"

ElseIf gw = "平锻机3"

nl = "日生产能力_锻造_350t"

ElseIf gw = "平锻机4"

nl = "日生产能力_锻造_450t"

ElseIf gw = "平锻机5"

nl = "日生产能力_锻造_500t"

ElseIf gw = "平锻机6"

nl = "日生产能力_锻造_800t"

End If

filter1 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_长度 = '" & dc("品种_长度") & "'and " & nl & " is not Null"

pc = DataTables("工序能力表").Find(filter1)

If pc IsNot Nothing Then

dc(gw) = pc(nl)

Else

dc(gw) = Nothing

End If

错误信息为：调用的目标发生了异常，详细信息如下：

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2016.6.14.1

错误所在事件：表，拉动排产计划_锻造， DataColChanged

详细错误信息：

调用的目标发生了异常。

语法错误:“Is”运算符前缺少操作数。

大红袍

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

加好友

发短信

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

Post By：2016/7/5 11:28:00 [只看该作者]

Dim dc As DataRow = e.DataRow
Dim pc As DataRow

Dim filter1 As String
Dim filter2 As String

filter2 = "执行合同编号 = '" & dc("合同编号") & "'"
For Each gw As String In DataTables("生产安排表").GetValues("工位", filter2)
    gw = "本工序_日生产能力_" & gw
    If e.DataTable.DataCols.contains(gw) Then
        Dim nl As String = ""
        If gw = "平锻机1"
            nl = "日生产能力_锻造_350t"
        ElseIf gw = "平锻机2"
            nl = "日生产能力_锻造_450t"
        ElseIf gw = "平锻机3"
            nl = "日生产能力_锻造_350t"
        ElseIf gw = "平锻机4"
            nl = "日生产能力_锻造_450t"
        ElseIf gw = "平锻机5"
            nl = "日生产能力_锻造_500t"
        ElseIf gw = "平锻机6"
            nl = "日生产能力_锻造_800t"
        End If
        If nl > "" Then
            filter1 = "品种_杆径 = '" & dc("品种_杆径") & "' And 品种_长度 = '" & dc("品种_长度") & "' and " & nl & " is not Null"
            pc = DataTables("工序能力表").Find(filter1)
            If pc IsNot Nothing Then
                dc(gw) = pc(nl)
            Else
                dc(gw) = Nothing
            End If
            endif
        End If
    Next

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

总数 16 1 2 下一页

主题：[求助]代码问题