Foxtable(狐表)用户栏目专家坐堂 → [分享]做了个列 显示关联行数的例子


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

主题:[分享]做了个列 显示关联行数的例子

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


加好友 发短信
等级:小狐 帖子:307 积分:2252 威望:0 精华:0 注册:2013/2/28 9:05:00
  发帖心情 Post By:2015/8/17 0:21:00 [显示全部帖子]

下载了,貌似用不了么?

 

是不是fb升级了,用不了这个功能啦?


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


加好友 发短信
等级:小狐 帖子:307 积分:2252 威望:0 精华:0 注册:2013/2/28 9:05:00
  发帖心情 Post By:2015/8/17 0:21:00 [显示全部帖子]

If e.Col.Name = "第一列" Then
    e.StartDraw()
    Dim fnt As New Font("微软雅黑",10,FontStyle.Bold)
    If e.Row.DataRow.GetChildRows("表B").Count > 0 Then
        Dim msg As String = CStr(e.Row.DataRow.GetChildRows("表B").Count)
        e.Graphics.FillEllipse(Brushes.red,e.Col.Width ,e.y+0,18,18)
        ' e.Graphics.FillEllipse(Brushes.red,e.x + 0 ,e.y + 0,18,18)
        e.Graphics.DrawString(msg,fnt,Brushes.White,e.Col.Width + 3 ,e.y + 0)
    End If
    e.EndDraw()
End If

 回到顶部