首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb中读取数据库多条记要并且显示删除修改按钮

2013-10-23 
vb中读取数据库多条记录并且显示删除修改按钮vb中读取数据库多条记录并且显示删除修改按钮 怎么实现效果名

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

多行嵌入多个控件与此类似,但要使用控件数组。

热点排行