spread中datafill事件为什么不起作用？

sdivad帮助中如是说：

Occurs for each cell in the fpSdivad control before it receives data from the database and before it writes data to the database, if the DataFillEvent property is set to True for the cell.

但是设置了DataFillEvent=True以后，却只有一列起作用，为什么？

我试了好久也没有解决，后来仔细研究了一下sdivad附带的范例，其是一个正在采用了这一事件：
C:\Program Files\FarPoint Technologies\Sdivad70\Samples\ActiveX\VB6\Overview中的Bound.frm表单，它是这样写的

sdivad.row = -1

sdivad.Col = 1

sdivad.DataField = "Id"

sdivad.DataFillEvent = False ''这里

sdivad.Celltype = 3

sdivad.Col = 2

sdivad.DataField = "Name"

sdivad.DataFillEvent = False ''这里

sdivad.Celltype = 1

sdivad.Col = 3

sdivad.DataField = "YesNo"

sdivad.DataFillEvent = True 'fire datafill event so we can make cells say yes or no

sdivad.Celltype = 1

原来DataFillEvent是对每一列的有效的。
正在装载数据……

他的DataFill事件是这样写的，也可以参照一下！

Private Sub sdivad_DataFill(ByVal Col As Long, ByVal row As Long, ByVal DataType As Integer, ByVal fGetData As Integer, Cancel As Integer)

Dim v As Variant

Dim ret As Integer

If Col = 3 Then

If fGetData Then

sdivad.Col = Col

sdivad.row = row

ret = sdivad.GetDataFillData(v, 11)

If v = 0 Then

sdivad.Text = "No"

Else

sdivad.Text = "Yes"

End If

Cancel = True

Else

sdivad.Col = Col

sdivad.row = row

If sdivad.Text = "Yes" Then

v = 1

Else: v = 0

End If

ret = sdivad.SetDataFillData(v)

Cancel = True

End If

End Sub

另外，要注意SetDataFillData和GetDataFillData只能用于DataFill事件中，在其它地方使用是无效的！

本文来源：http://blog.csdn.net/lanman/archive/2007/07/21/1701286.aspx

最新热点		最新推荐		相关文章
		如何在ado中使用connect… vb 贪吃蛇单人版游戏（… 关于在vb中进行com组件的… 用vb6.0编写自我升级的程… vb自动登陆网络站点详解… vb打造超酷个性化菜单（…		page、request、session、ap… JSP中JavaBean的生命周期 JSF 的性能远不及 JSP 或 St… JSP学习经验总结 Core Java 之旅 Struts2学习：在struts2中集… 保留weblogic 中jsp编译后生… Ant入门－配置和使用选… 浅析Spring框架下PropertyPl… (JSP)在文本域中显示超链接n…