vb中读取数据库多条记录并且显示删除修改按钮
vb中读取数据库多条记录并且显示删除修改按钮 怎么实现
效果
名称 数量 删除 修改
名称 数量 删除 修改
(当点击删除时则删除本条记录。当点击修改时,名称和数量变为可写状态)
就是这样循环多条
[解决办法]
两种不同的方式:
1、好像有个控件可以在行中显示为按钮模式,msflexgrid。
2、自己定义一个显示控件,显示数据时,生成相应的按钮。代码实现相对容易。
[解决办法]
最常见的方法,是在 MSFLexGrid 或 MSHFlextGrid 控件(取决于绑定 DAO 或 ADO)嵌入其他控件来实现。下面是在当前行嵌入 Check 控件的例子:
im lcol, lrow As Long
Private Sub Form_Load()
With MSFlexGrid1
lcol = 1
.Col = 1
lrow = 1
.Row = 1
MSFlexGrid1_RowColChange
End With
End Sub
Private Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
lcol = .Col
lrow = .Row
Check1.Visible = True
Check1.Height = .CellHeight
Check1.Width = .CellWidth
Check1.Left = .CellLeft + .Left
Check1.Top = .CellTop + .Top
End With
End Sub
Private Sub MSFlexGrid1_Scroll()
With MSFlexGrid1
If .RowIsVisible(lrow) And .ColIsVisible(lcol) Then
Check1.Visible = True
Check1.Height = .CellHeight
Check1.Width = .CellWidth
Check1.Left = .CellLeft + .Left
Check1.Top = .CellTop + .Top
Else
Check1.Visible = False
End If
End With
End Sub