Foxtable(狐表)用户栏目专家坐堂 → [求助] 红色部分的代码怎么写??统计字段为变量!


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

主题:[求助] 红色部分的代码怎么写??统计字段为变量!

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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
[求助] 红色部分的代码怎么写??统计字段为变量!  发帖心情 Post By:2014/11/27 15:32:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:360截图20141127152919438.jpg
图片点击可在新窗口打开查看




Dim TP As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each  FLL As WinForm.TopicPage In TP.Pages
    FLL.Links.Clear
    For Each ZWDJ As String In DataTables("词典").GetComboListString("名称","类别 = '" & FLL.Name & "'","_Identify").Split("|")
        Dim KG As String = NEW String(" ",24 - ZWDJ.Length*2)
        Dim RS As String = DataTables("人员表").Compute("count(身份号)", " & FLL.Name &  = "'" & ZWDJ & "'")
        FLL.Links.Add(ZWDJ,ZWDJ)' & KG & RS)
    Next
Next


请问红色部分的代码怎么写??
变量 FLL.Name  是《人员表》中的一字段!!!  
运行过程中出现   " & "操作符前缺少操作符!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/27 15:41:00 [只看该作者]

 你msgbox看一下

 

msgbox(FLL.Name)

 

msgbox(FLL.Text)


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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
  发帖心情 Post By:2014/11/27 15:54:00 [只看该作者]

Dim TP As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each  FLL As WinForm.TopicPage In TP.Pages
    FLL.Links.Clear
    For Each ZWDJ As String In DataTables("词典").GetComboListString("名称","类别 = '" & FLL.Name & "'","_Identify").Split("|")
        Dim KG As String = NEW String(" ",24 - ZWDJ.Length*2)
        Dim EXP As String = CEXP("{0} = {1}",FLL.Name,ZWDJ)
        Dim RS As String = DataTables("人员表").Compute("count(_Identify)",EXP)
'        MessageBox.Show(EXP)
'        MessageBox.Show("统计字段为:" & FLL.Name & "     值为:" & ZWDJ)
        
                FLL.Links.Add(ZWDJ,ZWDJ & KG & RS)' & KG & RS)
    Next
Next


我后来改成这样的代码,显示信息的时候都是对的,但在执行的时候却遇到"***"不是统计表中的列!图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/27 15:56:00 [只看该作者]

 是不是要加单引号啊?

 

CEXP("{0} = '{1}'",FLL.Name,ZWDJ)


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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
  发帖心情 Post By:2014/11/27 16:02:00 [只看该作者]

Dim TP As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each  FLL As WinForm.TopicPage In TP.Pages
    FLL.Links.Clear
    For Each ZWDJ As String In DataTables("词典").GetComboListString("名称","类别 = '" & FLL.Name & "'","_Identify").Split("|")
        Dim KG As String = NEW String(" ",24 - ZWDJ.Length*2)
        Dim EXP As String = CEXP("{0} = '{1}'",FLL.Name,ZWDJ)
        Dim RS As String = DataTables("人员表").Compute("count(_Identify)",EXP)
        FLL.Links.Add(ZWDJ,ZWDJ & KG & RS)' & KG & RS)
    Next
Next


终于搞定!!

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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
  发帖心情 Post By:2014/11/27 17:00:00 [只看该作者]

灰常感谢!

 回到顶部