主题：[求助]明明有这一列 怎么会没有这列！

售后客户档案_售后客户档案Table2 的currentchanged里有这么一段代码！

 

   If forms("售后客户档案").opened Then
        Dim u As Table = Tables("售后客户档案_售后客户档案Table1")
        With Tables("售后客户档案_售后客户档案Table2")
            If .Current Is Nothing Then
                u.Filter = "False"
            Else
                u.filter = "底盘号 = '" & .Current("底盘号") & "'"
            End If
        End With
   End If

 

 

售后客户档案 打开的时候 出现这个错误！（2个table都在售后客户档案这个窗口里）

此主题相关图片如下：未命名.jpg

 

是咋个情况~~~~~~~~~~~

程序从来不会撒谎。

If Tables("售后客户档案_售后客户档案Table2").Focused Then

 

If forms("售后客户档案").opened Then
        Dim u As Table = Tables("售后客户档案_售后客户档案Table1")
        With Tables("售后客户档案_售后客户档案Table2")
            If .Current Is Nothing Then
                u.Filter = "False"
            Else
                u.filter = "底盘号 = '" & .Current("底盘号") & "'"
            End If
        End With
   End If

endif

 

改成这个就没问题了

 

这个窗口的afterload代码如下：

 

Tables("售后客户档案_售后客户档案Table2").fill("SELECT * From {售后客户档案}","华泰内控系统-ERP",False)
Tables("售后客户档案_售后客户档案Table2").AllowEdit = True

Tables("售后客户档案_售后客户档案Table1").fill("SELECT * From {历史进店记录}","华泰内控系统-ERP",False)
Tables("售后客户档案_售后客户档案Table1").AllowEdit = True

Dim rgd As WinForm.RecordGrid = e.Form.Controls("售后客户档案RecordGrid1")
rgd.Table = Tables("售后客户档案_售后客户档案Table2") '指定绑定表
rgd.Columns = "客户等级|车系|编号|底盘号|销售日期|生产日期|车牌号|型号|车主|联系人|联系电话|公私车|地址|建档日期|最后进店日期|里程|保险开始日期|保险结束日期"
rgd.Build() '重新生成记录窗口

Tables("售后客户档案_售后客户档案Table2").UseVisualStyle = False

If forms("售后客户档案").opened
    If Tables("售后客户档案_售后客户档案Table2").Rows.count > 0 Then
        Tables("售后客户档案_售后客户档案Table1").filter = "底盘号 = '" & Tables("售后客户档案_售后客户档案Table2").Current("底盘号") & "'"
    Else
        Tables("售后客户档案_售后客户档案Table1").filter = "[_identify] is null"
    End If
End If

 

 

 

请问是什么原因啊~~~？？

 看代码，无解，望高人...

u.filter = "底盘号 = '" & .Current("底盘号") & "'"  你这里可能是两个表```而不是那个 XXXX_table2

做个例子发上来