vb6.0中，spread中的button

spread绑定数据，在datafill事件中，设置当某一列的单元格为空时，该单元格格式button

Private Sub fpSpreadRpt_DataFill(ByVal Col As Long, ByVal Row As Long, ByVal DataType As Integer, ByVal fGetData As Integer, Cancel As Integer)

If Col = 3 Then
    If fpSpreadRpt.GetText(3, Row, m_Data) Then
        If m_Data = "" Then
            With fpSpreadRpt
                .Col = 3
                .Col2 = 3
                .Row = Row
                .Row2 = Row
                .CellType = CellTypeButton
            End With
        End If
    End If
End If
End Sub


但是该列并不显示Button，请教一下为什么，如何往下

回复 13楼tianyake的帖子

抱歉，让你久等了。
需要通过 GetDataFillData 方法来获取当前绑定单元格的数据，获取方法如下：

1. 
   
2. Private Sub ss_DataFill(ByVal Col As Long, ByVal Row As Long, ByVal DataType As Integer, ByVal fGetData As Integer, Cancel As Integer)
   
3. 
   
4. If Col = 3 Then
   
5.     Dim v As Variant
   
6.     If ss.GetDataFillData(v, DataType) Then
   
7.         If v = "" Then
   
8.             With ss
   
9.                 .Col = 3
   
10.                 .Col2 = 3
    
11.                 .Row = Row
    
12.                 .Row2 = Row
    
13.                 .CellType = CellTypeButton
    
14.             End With
    
15.         End If
    
16.     End If
    
17. End If
    

复制代码

Demo：

DataFill.zip (14.72 KB, 下载次数: 344)

2014-6-18 20:14 上传

点击文件名下载附件

效果图：

回复 1楼tianyake的帖子

请你尝试通过以下方法设置，看能否成功：

1. 
   
2. ' Specify a cell
   
3. fpSpread1.Col = 2
   
4. fpSpread1.Row = 3
   
5. ' Define cell type as button
   
6. fpSpread1.CellType = CellTypeButton
   
7. ' Insert picture in the cell
   
8. fpSpread1.TypeButtonPicture = LoadPicture("C:\Samples\Files\CAMCORD.BMP")
   
9. ' Set button text
   
10. fpSpread1.TypeButtonText = "Manufacturer"
    
11. ' Define the text color
    
12. ' dark blue, RGB(0, 0, 128)
    
13. fpSpread1.TypeButtonTextColor = &H800000
    
14. ' Align text right and picture left
    
15. fpSpread1.TypeButtonAlign = TypeButtonAlignRight
    
16. ' Set the column width to display text and picture
    
17. fpSpread1.ColWidth(2) = 15
    
18. ' Set the row height to display entire picture
    
19. fpSpread1.RowHeight(3) = 20
    
20. 
    

复制代码

单独设置某一个单元格为Button是没有问题的，但是在DataFill事件中设置是没有效果的

我现在就是想在绑定的时候根据数据来确定是否显示为Button

回复 3楼tianyake的帖子

我通过附件使用 Spread Com 8.0 可以成功设置 ButtonCellType ：

DataFill.zip (9.83 KB, 下载次数: 799)

2014-5-26 17:21 上传

点击文件名下载附件

请参考，如果没有解决问题欢迎继续交流

发现问题在于datafill中

fpSpreadRpt.GetText(3, Row, m_Data)总等于false


如何在datafill中取单元格的值？

回复 5楼tianyake的帖子

我是通过以下代码获取的：

1. 
   
2. fpSpreadRpt.Row=1
   
3. fpSpreadRpt.Col=2
   
4. Dim test As String
   
5. test = fpSpreadRpt.Text
   

复制代码

你理解错了，单独这么取值肯定可以取得到的，而且不是上像你这么取一个特定的单元格

我现在是要在datafill事件中，绑定单元格时，取该单元格的值

我要到达的目的是，绑定第三列时，如果第三列某行的值为空，则设置该单元格为button，请看我原贴代码

回复 7楼tianyake的帖子

您好，这个帖子沟通了4轮了，为了快速解决您的问题。

能否给提供一个demo，这样我们沟通起来效率可能会更高一些。 如可基于4#的demo。

好的，请参照附件，谢谢

DataFill.rar (8.94 KB, 下载次数: 364)

2014-6-3 16:32 上传

点击文件名下载附件

回复 9楼tianyake的帖子

附件已经查收，调试后反馈结果。