以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何做到窗口中的表同时显示行号及复选框  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58244)

--  作者:baoxyang
--  发布时间:2014/10/14 14:27:00
--  如何做到窗口中的表同时显示行号及复选框
目前窗口中的表有了复选框,行号就显示不出来。请教如何能做到?
--  作者:Bin
--  发布时间:2014/10/14 14:28:00
--  
做不到,你增加一个逻辑列作为复选框使用吧
--  作者:Neha
--  发布时间:2014/10/14 20:03:00
--  
’全局代码 Public Sub OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) If e.Row >= sender.Rows.Fixed And e.Col = sender.Cols.Fixed - 1 Then Dim rowNumber As Integer = e.Row - sender.Rows.Fixed + 1 e.Text = rowNumber.ToString() e.Style.ForeColor = Color.SteelBlue e.Style.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter End If If e.Row = 0 Then e.Style.ForeColor = Color.Black End If End Sub ‘’我一般都放在项目事件里面 AddHandler tables("表A").Grid.OwnerDrawCell, AddressOf OwnerDrawCell 使用期限到了行号咧没有行号,用这个也可以的哦,,希望不要被河蟹的好
--  作者:baoxyang
--  发布时间:2014/10/16 14:54:00
--  
以下是引用Neha在2014-10-14 20:03:00的发言:
’全局代码 Public Sub OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs) If e.Row >= sender.Rows.Fixed And e.Col = sender.Cols.Fixed - 1 Then Dim rowNumber As Integer = e.Row - sender.Rows.Fixed + 1 e.Text = rowNumber.ToString() e.Style.ForeColor = Color.SteelBlue e.Style.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter End If If e.Row = 0 Then e.Style.ForeColor = Color.Black End If End Sub ‘’我一般都放在项目事件里面 AddHandler tables("表A").Grid.OwnerDrawCell, AddressOf OwnerDrawCell 使用期限到了行号咧没有行号,用这个也可以的哦,,希望不要被河蟹的好

请问使用期限到了,行号没有?不明白,请指导!谢谢!!


--  作者:有点甜
--  发布时间:2014/10/16 15:00:00
--  

 你照抄看效果就对了。

 

Public Sub OwnerDrawCell(ByVal sender As Object, ByVal e As C1.Win.C1FlexGrid.OwnerDrawCellEventArgs)
If e.Row >= sender.Rows.Fixed And e.Col = sender.Cols.Fixed - 1 Then
    Dim rowNumber As Integer = e.Row - sender.Rows.Fixed + 1
    e.Text = rowNumber.ToString()
    e.Style.ForeColor = Color.SteelBlue
    e.Style.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
End If
If e.Row = 0 Then
    e.Style.ForeColor = Color.Black
End If
End Sub


--  作者:baoxyang
--  发布时间:2014/10/16 15:07:00
--  

如何行号超过100以后看不到,复选框太小了。


--  作者:baoxyang
--  发布时间:2014/10/16 15:14:00
--  
请教如何调整复选框的宽度?
--  作者:有点甜
--  发布时间:2014/10/16 15:29:00
--  
 无法调整,你单独做加一列做选择吧
--  作者:cxabc123
--  发布时间:2014/10/16 15:34:00
--  
高手如云