专家坐堂-请老师看一眼下面代码有什么问题？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请老师看一眼下面代码有什么问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98736)

--  作者：chh2321
--  发布时间：2017/4/6 9:56:00
--  请老师看一眼下面代码有什么问题？

老师，

下面代码中，表A是父表，表B、C、D是子表，我在表A的CurrentChanged事件中写了如下代码，结果父子表同步失败，是哪里有问题？

For Each s As String In "表A,表B,表C,表D".split(",")
If e.Table.Current IsNot Nothing Then
DataTables(s).LoadFilter = "编号 = " & e.Table.Current("编号")
Else
DataTables(s).LoadFilter = "[_Identify] is null"
End If
DataTables(s).Load()
Next

--  作者：chh2321
--  发布时间：2017/4/6 10:16:00
--

抱歉，老师，是我搞错了。

表A也是子表，问题出在编号列是字符型

   DataTables(s).LoadFilter = "编号 = " & e.Table.Current("编号")
改成
   DataTables(s).LoadFilter = "编号 = ‘’" & e.Table.Current("编号") & “‘’”

就可以了

--  作者：有点色
--  发布时间：2017/4/6 10:17:00
--

代码改一下

For Each s As String In "表B,表C,表D".split(",")
    If e.Table.Current IsNot Nothing Then
        DataTables(s).LoadFilter = "编号 = \'" & e.Table.Current("编号") & "\'"
    Else
        DataTables(s).LoadFilter = "[_Identify] is null"
    End If
    DataTables(s).Load()
Next