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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]filter没有问题，用filter2会报错

共有3093人关注过本帖树形打印复制链接主题：[求助]filter没有问题，用filter2会报错

linyunu1

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

加好友

发短信

等级：幼狐帖子：162 积分：1089 威望：0 精华：0 注册：2020/1/16 11:58:00

Post By：2020/7/9 9:49:00 [显示全部帖子]

Dim r As Row = Tables("公司_Table1").Current

if r isnot nothing then

    Dim Filter As String = "单位编号 = '" & r(单位编号") & "'"                ‘用单位编号
    If DataTables("发邮件").Find(Filter) Is Nothing Then
        DataTables("发邮件").AppendLoad(Filter)
    End If

    Dim Filter2 As String = "单位名称 = '" & r(单位名称") & "'"       ’用单位名称
    If DataTables("联系人").Find(Filter2) Is Nothing Then

DataTables("联系人").AppendLoad(Filter2)

End If

写法规范一点，还有报的是什么错？

linyunu1

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

加好友

发短信

等级：幼狐帖子：162 积分：1089 威望：0 精华：0 注册：2020/1/16 11:58:00

Post By：2020/7/9 11:11:00 [显示全部帖子]

Dim Filter2 As String = "单位名称 = '" & r("单位名称") & "'"

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

主题：[求助]filter没有问题，用filter2会报错