Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码出错（已解决）


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

主题：[求助]代码出错（已解决）
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		[求助]代码出错（已解决）  发帖心情 Post By：2012/9/12 9:17:00 [只看该作者]

一段代码，填充分月数据，运行后提示“表达式中有语法错误”，请各位老师帮助看看，问题在哪里，如何修改，谢谢！！

 

Dim ny1,yf As String
For Each dr1 As DataRow In DataTables("销售工效分月分析").DataRows
    For j As Integer = 1 To i
        If j <= 9
            yf = 0 & j
        Else
            yf = j
        End If
        ny1 = nf & "-" & yf
       
        If dr1.IsNull("厂家")  Then
            dr1(ny1 & "_销售收入") = Nothing
        Else
            Dim pr1 As Double = DataTables("xsmx").Compute("Sum(销售收入)","[年月] ='" & ny1 & "',[单位] ='" & dr1("单位") & "',[客户全称] ='" & dr1("厂家") & "'")
            dr1(ny1 & "_销售收入") = pr1
        End If
    Next
Next

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下：d.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-9-12 10:35:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2012/9/12 9:50:00 [只看该作者]

Dim pr1 As Double = DataTables("xsmx").Compute("Sum(销售收入)","[年月] ='" & ny1 & "' and [单位] ='" & dr1("单位") & "' and [客户全称] ='" & dr1("厂家") & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2012/9/12 10:35:00 [只看该作者]

谢谢CZY老师的指教，问题已解决，再次感谢！！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02344 秒, 4 次数据查询