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

  先看看图片.比如11有关联数据6行 就显示6 12有5行就显示5:
此主题相关图片如下：8u4lb88hafxj{%ce7gpvnyi.jpg

谢谢分享

下载了，貌似用不了么？

 

是不是fb升级了，用不了这个功能啦？

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

代码改一下

 

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)
        Dim c As Integer
        If e.Col.Width = -1 Then
            c = 100
        Else
            c = e.Col.Width
        End If
        e.Graphics.FillEllipse(Brushes.red,e.x + c - 25 ,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.x + c - 22 ,e.y + 0)
    End If
    e.EndDraw()
End If