MSFlexGrid控件的使用

[Lucky402]

删除MSFlexGrid控件中被选中行的数据用一条什么语句呢，而且相应的数据库的此条数据也要被删除
还有添加有什么语句呢？

[ygrobin]

with mshFlexGrid1
.RemoveItem 行号 '删除

.rows=.rows+1 '添加
.col=所在的列
.text="要添加的值"
end with
数据库的需要单独操作！

[xiaoxiaoP]

''双击一行删除
Private Sub MSFlexGrid1_DBClick()
MSFlexGrid1.RemoveItem MSFlexGrid1.row
End Sub
''删除数据库中的相应记录

' 为使用TextArray 属性计算索引。
Function faIndex(row As Integer, col As Integer) As Long
faIndex =row * MSHFlexGrid1.Cols + col
End Function

'用ado
Private Sub delDAta()
dim Dbaseid as string
''假设左边第一列为该表的主键
Dbaseid=MSHFlexGrid1.TextArray(faIndex(MSHFlexGrid1.row, 1))
Set Rec = New ADODB.Recordset
Set Rec.ActiveConnection = Conn 'conn为一连接数据库的connection
Rec.CursorType = adOpenKeyset
Rec.LockType = adLockOptimistic
Rec.Open "select from datebase where databaseId="&"'"& Sbaseid &"'"
if Rec.recordcount=1 then
Rec.delete
end if
rec.close


End Sub

[blackbug119]

MSFlexGrid1.RemoveItem MSFlexGrid1.row


在MSFlexGrid1.RemoveItem MSFlexGrid1.row前删除数据库的数据后在MSFlexGrid1.RemoveItem MSFlexGrid1.row

[熊孩子开学喽]

如果控件是直接和数据库关联的，只要删除数据库中的记录，在把控件中的数据刷新一下就可以了。
如果控件中的数据是通过代码添加的，则需要分别删除，当然也可以将数据库中记录删除后再添加一次。