Private Sub combotype_Click() '组合控件的单击事件
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'从数据库内搜索组合控件内的用户类型,并进行查询显示
txtSQL = "select * from User_Info where Level='" & combotype.Text & "' "
Set mrc = ExecuteSQL(txtSQL, MsgText)
With myflexgrid
.Rows = 1 '设置总行数为1,这是的总行数默认为0
.CellAlignment = 4 '单元格内容中间居中
.TextMatrix(0, 0) = "用户名" '将内容添加是标题行,0行
.TextMatrix(0, 1) = "姓名"
.TextMatrix(0, 2) = "开户人"
Do While Not mrc.EOF '非标题行的内容循环添加
.Rows = .Rows + 1 '总行数为之前的总行数加1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0)) '将数据库内容添加至表格内
.TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
.TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(4))
mrc.MoveNext '光标下移
Loop
End With
End Sub
②、获取myflexgrid控件选中的行数
Private Sub myflexgrid_Click() 'flexgrid单击事件
cmddelete.Enabled = True '激活删除控件
n = myflexgrid.RowSel '将flexgrid中选中行的行数赋值给变量n
End Sub
③、在数据库中和表格中删除选中行内容
Private Sub cmddelete_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
'从数据库中删除flexgrid控件选中的内容
txtSQL = "delete from User_Info where userID='" & myflexgrid.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
myflexgrid.RemoveItem n '在myflexgrid控件中删除选中的行
End Sub