以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新增一行，或删除一行，为什么会提示没有找到列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126404)
--  作者：yetle
--  发布时间：2018/10/20 17:28:00
--  新增一行，或删除一行，为什么会提示没有找到列
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
未找到列 [D183536]。（[D183536]是一个款号值）


CurrentChanged

If Forms("销售订单").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开

    Dim b As Table = Tables("销售明细尺码数")   
    Dim c As Table = Tables("销售订单_Table4")

Dim drm As DataRow = DataTables("销售明细尺码数").find("[款号] = \'" & Tables("销售订单_Table2").current("款号") & "\'")

    With Tables("销售订单_Table2")

        If .Current("款号") IsNot Nothing  And drm IsNot Nothing Then
Tables("销售明细尺码数").Cols("尺码信息").Combolist = DataTables("款式尺码").GetComboListString("尺码","[款号] = \'" & Tables("销售订单_Table2").current("款号") & "\'")

            b.Filter = "订单号 = " & .Current("流水订单号")
            c.Filter = "款号 = " & .Current("款号")
        Else
            c.Filter = "False"
            b.Filter = "False"

        End If
    End With
End If



[此贴子已经被作者于2018/10/20 17:29:35编辑过]
--  作者：有点蓝
--  发布时间：2018/10/20 17:33:00
--  

            b.Filter = "订单号 = \'" & .Current("流水订单号") & "\'"
            c.Filter = "款号 = \'" & .Current("款号") & "\'"