首页 › ActiveX 求助中心 › vb6.0中，spread中的button

tianyake 发表于 2014-6-9 17:00:00

有结果了吗

iceman 发表于 2014-6-10 18:07:00

回复 11楼tianyake的帖子

你好，

目前我还没有调试成功。
我看到你的数据源只有两列，而且并没有设置 ss.Col = 3 ss.DataFillEvent = True 。

明天我会继续跟进该问题。

iceman 发表于 2014-6-18 20:14:00

回复 13楼tianyake的帖子

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

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

If Col = 3 Then
    Dim v As Variant
    If ss.GetDataFillData(v, DataType) Then
      If v = "" Then
            With ss
                .Col = 3
                .Col2 = 3
                .Row = Row
                .Row2 = Row
                .CellType = CellTypeButton
            End With
      End If
    End If
End If


Demo：



效果图：

查看完整版本: vb6.0中，spread中的button