Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式双引号实在不会用


  共有4238人关注过本帖树形打印复制链接

主题：表达式双引号实在不会用
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/29 17:18:00 [显示全部帖子]

pr = DataTables("销售应收与衍生应付").Find("[DK编码] = '" & e.DataRow("关联仓库DK编码") & "' And [账年] = '" & e.DataRow("账年") & "' And [账月] = '" & e.DataRow("账月") & "'")

 

类似的参考
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/29 17:47:00 [显示全部帖子]

 这样写

 

Dim Filter As String = pr("DK编码") & " = '" & e.DataRow("关联仓库DK编码") &  "' And " & pr("账年") & " = '" & e.DataRow("账年") & "' And " &  pr("账月") & " = '" & e.DataRow("账月") & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/30 10:16:00 [显示全部帖子]

报什么错？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/30 10:17:00 [显示全部帖子]

 你msgbox(filter)看看结果

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/30 10:38:00 [显示全部帖子]

If e.DataCol.Name = "客审后定账确认" AndAlso e.DataRow("客审后定账确认") = True Then
    Dim nma() As String = {"关联仓库DK编码","DK简称","账年","账月"}     
    Dim nmb() As String = {"DK编码","DK简称","账年","账月"}   
    Dim pr As DataRow
    pr = DataTables("销售应收与衍生应付").Find("[DK编码] = '" & e.DataRow("关联仓库DK编码" ) & "' And [账年] = '" & e.DataRow("账年") & "' And  [账月] = '" & e.DataRow("账月") &"'")
    If pr Is Nothing Then
        Dim dr As DataRow = DataTables("销售应收与衍生应付").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    Else
        Dim Filter As String = "[DK编码] = '" & pr("DK编码" ) & "' And [账年] = '" & pr("账年") & "' And  [账月] = '" & pr("账月") &"'"
        pr("应收金额")= DataTables("销售与衍生对账").Compute("Sum(产生金额)", Filter )
        pr("K佣金1_金额")= DataTables("销售与衍生对账").Compute("Sum(佣金金额1)",  Filter & " And 客审后定账确认 = True"  )
      
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/30 11:16:00 [显示全部帖子]

 先写 " 产品 = 'A' "

 

 再写 " 产品 = '" & A & "'"

 

 再写 " 产品 = '" & 变量 & "'"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03613 秒, 5 次数据查询