在表单上添加一个 vs8(oledb)控件VSFlexGrid1 一个adodc控件adodc1,两个按钮 vs8的数据源设为adodc1 大概用法是这样的,希望对你有帮助Dim s Private Sub Command1_Click() s = VSFlexGrid1.Book(VSFlexGrid1.Row) End SubPrivate Sub Command2_Click() Adodc1.Recordset.Book = s MsgBox Adodc1.Recordset.Fields(2) End Sub
一个adodc控件adodc1,两个按钮
vs8的数据源设为adodc1
大概用法是这样的,希望对你有帮助Dim s
Private Sub Command1_Click()
s = VSFlexGrid1.Book(VSFlexGrid1.Row)
End SubPrivate Sub Command2_Click()
Adodc1.Recordset.Book = s
MsgBox Adodc1.Recordset.Fields(2)
End Sub
vsflexgrid1.book(vsflexgrid1.row)=rejxc.book
把vs的标签付给数据库却不错,这是怎么回事啊!
rejxc.book=vsflexgrid1.book(vsflexgrid1.row)