太长的表达式无法执行怎么办 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 太长的表达式无法执行怎么办

共有2618人关注过本帖树形打印复制链接主题：太长的表达式无法执行怎么办

gv2000

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

加好友

发短信

等级：幼狐帖子：58 积分：492 威望：0 精华：0 注册：2020/11/10 11:34:00

太长的表达式无法执行怎么办 发帖心情

Post By：2020/11/20 20:41:00 [只看该作者]

Dim xr As DataRow = DataTables("采购完成情况表").SQLFind("[采购PO] = '"& dr("采购PO") &"' and [物料代码]= '"& dr("物料代码") &"'")

是不是 and 有问题

有点蓝

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

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/21 9:23:00 [只看该作者]

如果是要同时符合2个条件，and的用法肯定没有问题：http://www.foxtable.com/webhelp/topics/1284.htm

gv2000

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

加好友

发短信

等级：幼狐帖子：58 积分：492 威望：0 精华：0 注册：2020/11/10 11:34:00

Post By：2020/11/21 11:50:00 [只看该作者]

If e.DataCol.Name = "审核" Then
    If e.NewValue = True Then
        e.DataRow("审核员") = user.name
        e.DataRow("审核日期") = Date.Today
        e.DataRow.Locked = True
        For Each dr As DataRow In e.DataRow.GetChildRows("采购订单详细")
            dr.Locked = e.DataRow.Locked
Dim dr2 As DataRow
dr2 = DataTables("采购完成情况表").SQLfind("[采购PO] = '" & dr("采购PO") & "'And [物料代码] = '" & dr("物料代码") & "'")
If dr2 IsNot Nothing Then
dr2("采购数量") = dr("采购数量")
Else
Dim nr As DataRow = DataTables("采购完成情况表").AddNew()
nr("采购PO") = dr("采购PO")
nr("供应商") = dr("供应商")
nr("物料代码") = dr("物料代码")
nr("物料名称") = dr("名称")
nr("规格型号") = dr("规格型号")
nr("采购数量") = dr("采购数量")
End If
        Next
    End If
End If