vb6.0中，spread中的button

tianyake · tianyake

有结果了吗

iceman · iceman

回复 11楼tianyake的帖子

你好，

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

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

iceman · iceman

回复 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：

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

		自动登录	找回密码
密码			立即注册

[已处理] vb6.0中，spread中的button