以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77501)
--  作者：ccbbdlzj
--  发布时间：2015/11/19 12:10:00
--  求助
在 Range 对象中，Min（3499）必须小与或等于 MAX(-1),啥意思啊?
--  作者：大红袍
--  发布时间：2015/11/19 12:21:00
--  
贴出你写的代码。
--  作者：ccbbdlzj
--  发布时间：2015/11/19 12:29:00
--  
Dim Style As XLS.Style = Book.NewStyle()
Style.WordWrap = True \'设置单元格自动换行
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
Sheet.Rows(2).Style = Style
Sheet.Rows(3).Style = Style
Dim m As Integer = ygxm.count
Dim n As Integer = cjdm.count
Dim zbrq As String
zbrq = Format(Date.today,"yyyy年M月d日")
Sheet(1,0).value= "报表日期:"  & sjrq
Sheet(0,0).Value = "中国建设银行保定东风中路支行公司机构客户数量情况表[按客户经理及客户分层]"
Sheet(2,0).Value = "员工编号"
Sheet(2,1).Value = "员工姓名"
Sheet(m+5,1).Value = "合计"
For i As Integer = 0 To ygxm.Count - 1
    For j As Integer = 0 To cjdm.Count - 1
        Sheet(i + 5, 0).Value = ygbh(i)
        Sheet(i + 5, 1).Value = ygxm(i)
        Sheet(2, j + 2).Value = cjdm(j)
        Sheet(3, j + 2).Value = cj(j)(1)
        Sheet(4, j + 2).Value = cj(j)(2)
        Dim jqsl,bgqsl,jqslhj,bgqslhj As Integer
        jqsl=gsjgkhsjb.Compute("Count(客户有效性代码)","客户经理_原_姓名 = \'" & ygxm(i) & "\' And 客户有效性代码 = \'" & cjdm(j) & "\' And 数据日期= \'"& sjrq &"\'")
        \'\'bgqsl=gsjgkhsjb.Compute("Count(客户有效性代码)","客户经理_姓名 = \'" & ygxm(i) & "\' And [客户有效性代码] = \'" & cjdm(j) & "\'And 数据日期= \'"& bgqrq &"\'")
        \'jqslhj=gsjgkhsjb.Compute("Count(客户有效性代码)","[客户有效性代码] = \'" & cjdm(j) & "\'And 数据日期= \'"& sjrq &"\'")
        \'\'bgqslhj=gsjgkhsjb.Compute("Count(客户有效性代码)","[客户有效性代码] = \'" & cjdm(j) & "\'And 数据日期= \'"& bgqrq &"\'")
        Sheet(i + 5, j + 2).Value = jqsl     \'Sheet(i + 4, n + j + 2).Value = gsjgkhsjb.Compute("Count(客户有效性代码)","客户经理_姓名 = \'" & ygxm(i) & "\' And [客户有效性代码] = \'" & cjdm(j) & "\'And 数据日期= \'"& bgqrq &"\'")
       \' Sheet(m + 5, j + 2).Value = jqslhj    
     Next
Next
Sheet.MergeCell(0,0,1,n+2)
Sheet.MergeCell(1,0,1,n+2)
Sheet.MergeCell(2,0,3,1)
Sheet.MergeCell(2,1,3,1)
Sheet(m+7, n-3).Value = "制表人:" & User.Name
Sheet(m+7, n-1).Value = "制表日期:" & zbrq
Forms("进度显示").close
\'打开工作簿
Book.Save("\\\\Bddfzlzh-kh\\中国建设银行绩效考核系统$\\EXCEL报表\\客户相关报表\\公司机构客户数量表【按客户经理及客户分层】" & sjrq & ".xls") \'("d:\\data\\文件.csv",
--  作者：大红袍
--  发布时间：2015/11/19 12:46:00
--  
加入msgbox，看看哪句代码执行后报错。
--  作者：ccbbdlzj
--  发布时间：2015/11/19 12:50:00
--  
 jqsl=gsjgkhsjb.Compute("Count(客户有效性代码)","客户经理_原_姓名 = \'" & ygxm(i) & "\' And 客户有效性代码 = \'" & cjdm(j) & "\' And 数据日期= \'"& sjrq &"\'")
这行。
--  作者：大红袍
--  发布时间：2015/11/19 14:16:00
--  

这两个集合是什么东西？不应该在此处报错。在其之前执行一下

 

msgbox(ygxm(i))

msgbox(cjdm(j))