Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

帅哥哟,离线,有人找我吗?
wck197501
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:252 威望:0 精华:0 注册:2018/11/2 9:11:00
[求助]  发帖心情 Post By:2019/10/9 20:05:00 [只看该作者]

dim aa as string

aa = "lwgNo01"

Compute("Sum(mtrlwgNo01)","[aa] = '" & e.DataRow("mtrNo") & "'")
其中[aa]可以这样用吗?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:46481 积分:244703 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/10/9 20:37:00 [只看该作者]

dim aa as string

aa = "lwgNo01"

Compute("Sum(mtrlwgNo01)", aa & " = '" & e.DataRow("mtrNo") & "'")


 回到顶部
帅哥哟,离线,有人找我吗?
wck197501
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:252 威望:0 精华:0 注册:2018/11/2 9:11:00
  发帖心情 Post By:2019/10/10 8:00:00 [只看该作者]

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20191010.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:46481 积分:244703 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/10/10 8:22:00 [只看该作者]

dim aa as string

aa = "lwgNo01"

Compute("Sum(mtrlwgNo01)", aa & " = " & e.DataRow("mtrNo") )


看看:

http://www.foxtable.com/webhelp/topics/1284.htm


 回到顶部
帅哥哟,离线,有人找我吗?
wck197501
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:252 威望:0 精华:0 注册:2018/11/2 9:11:00
  发帖心情 Post By:2019/10/10 8:57:00 [只看该作者]

还是不行:


图片点击可在新窗口打开查看此主题相关图片如下:qq截图201910101.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:35369 积分:180029 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 9:59:00 [只看该作者]

贴出上面截图中的错误事件完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
wck197501
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:252 威望:0 精华:0 注册:2018/11/2 9:11:00
  发帖心情 Post By:2019/10/10 10:25:00 [只看该作者]

Dim eagi,eagj,tabi,tabj,eagint,i,j,ci,li,mstr,mchan As Integer
Dim eagbooks As new List (of String)
Dim eagstring,eagstr,wstr,ename,echan As String
'Dim antilwgs(j) As Integer
If e.DataCol.name = "xuhao" Then
    eagi=0
    For Each  eagbook As DataTable In DataTables
        eagstring = right(eagbook.name,2)
        If eagstring = "gc" Then
            eagbooks.Insert(eagi,eagbook.name)
            eagi = eagi+1
           
        End If
    Next
    eagj = eagbooks.count
End If
For Each ww As String In eagbooks
    output.show(ww)
Next
'以下代码,将各项工程最高计量次数存入变量j中
For i=0 To eagj-1 Step 1
    li=1
    For Each eagcol As DataCol In DataTables(eagbooks(i)).DataCols
        If  eagcol.name.Contains("mtrNo") Then
            eagstr = right(eagcol.name,2)
            ename = "mtrlwgNo"
            mstr = "mtrNo"
            echan = ename & cstr(0) & cstr(1)
            mchan = mstr & cstr(0) & cstr(1)
            output.show("echan=" & echan)
            Integer.TryParse(eagstr,eagint)
            If j < eagint Then
                j = eagint
            End If
            li=li+1
        End If
        Dim antilwgs(j+1) As Double
        antilwgs(1) = DataTables(eagbooks(1)).Compute("Sum(mtrlwgNo01)", echan & " = '" & e.DataRow("mtrNo") & "'" )    
                                                                         '   t  & " = '" & Vars("产品") &  "'")

      
'Compute("Sum(mtrlwgNo01)", aa & " = '" & e.DataRow("mtrNo") & "'")
 e.DataRow("antilwg") = antilwgs(i)
       
       
       
    Next
    output.show("i=" & i)
Next

output.show("eagint=" & eagint)


图片点击可在新窗口打开查看此主题相关图片如下:qq截图201910103.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:35369 积分:180029 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 10:37:00 [只看该作者]

先不管上面的错误,确定这种代码是放在datacolchanged事件?

If e.DataCol.name = "xuhao" Then
    所有代码都应该放到这里面
End If

至于错误提示:

output.show(echan & " = '" & e.DataRow("mtrNo") & "'" )     '这里显示什么条件?列名是否正确?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:35369 积分:180029 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 10:38:00 [只看该作者]

上传实例看看,感觉这种汇总没有这么复杂吧

 回到顶部
帅哥哟,离线,有人找我吗?
wck197501
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:252 威望:0 精华:0 注册:2018/11/2 9:11:00
  发帖心情 Post By:2019/10/10 11:58:00 [只看该作者]

要实现的是[mtrlwgNo01] [mtrlwgNo02]。。。分别符合“第01期”、“第02期”。。。。,用变量j来设整列名


 回到顶部
总数 11 1 2 下一页