主题：父表与子表同步加载公式报错？

父表与子表同步加载，总人事库是父表，职称记录是子表。在父表的AfterLoad中设置公式如下：

 

   If DataTables("总人事库").DataRows.Count = 0 Then '如果总人事库没有数据
        DataTables("职称记录").LoadFilter = "身份证号码 Is Null" '不加载职称记录

    Else
        Dim ids As String
        For Each dr As DataRow In DataTables("总人事库").DataRows
            ids = ids & "," & dr("拼音")
        Next
        ids= ids.Trim(",")
        DataTables("职称记录").LoadFilter = "拼音 In (" & ids & ")"
    End If
    DataTables("职称记录").Load()

 

登录时提示如下：

 

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

ids = ids & "," & dr("拼音")

应该是：

 

 

ids = ids & ",'" & dr("拼音") & "'"

 

 

字符型应该用单引号括起来的。