基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

flexcell控件自带的数据库编程示例

Private Sub Grid1_GetCellText(ByVal Row As Long, ByVal Col As Long, Text As String, Changed As Boolean)
    Dim strField As String
    
    On Error GoTo ErrorHandler
    
    If Row > 0 And Col > 0 Then
        If Row <= m_Recordset.RecordCount Then
            strField = Grid1.Cell(0, Col).Tag
            If m_Recordset.AbsolutePosition <> Row Then
                m_Recordset.AbsolutePosition = Row
            End If
            If IsNull(m_Recordset.Fields(strField).Value) Or IsEmpty(m_Recordset.Fields(strField).Value) Then
                Text = ""
            Else
                Text = m_Recordset.Fields(strField).Value
            End If
            Changed = True '要使用虚表模式
        End If
    End If
    Exit Sub
    
ErrorHandler:
    Err.Clear
End Sub