比如:
table :
id
name
object:
Private m_Id As Variant
Private m_Name As VariantPublic Property Get ID() As Variant
ID = m_Id
End PropertyPublic Property Let ID(ByVal vNewValue As Variant)
m_Id = vNewValue
End Property
..............
table :
id
name
object:
Private m_Id As Variant
Private m_Name As VariantPublic Property Get ID() As Variant
ID = m_Id
End PropertyPublic Property Let ID(ByVal vNewValue As Variant)
m_Id = vNewValue
End Property
..............
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货