显示全部代码：
'显示全部信息代码 Private Sub ShowAll_Click() Dim msgtext As String Dim txtsql As String Dim mrc As ADODB.Recordset MSFlexGrid1.SelectionMode = flexSelectionByRow '单击的时候选择的是整行 MSFlexGrid1.FocusRect = flexFocusNone '在当前单元的周围画一个焦点框 MSFlexGrid1.HighLight = flexHighlightWithFocus '该值决定了所选定的单元是否突出显示 txtsql = "select * from OnLine_Info" '查看数据库以得到所有上机同学的表 Set mrc = ExecuteSQL(txtsql, msgtext) If mrc.EOF = True Then '判断数据库是否为空 MsgBox "学生上机记录为空！", vbOKOnly, "温馨提示" ShowAll.Enabled = False Else ShowAll.Enabled = True End If With MSFlexGrid1 '添加表头 .Rows = 1 .CellAlignment = 4 .TextMatrix(0, 0) = "卡号" .TextMatrix(0, 1) = "姓名" .TextMatrix(0, 2) = "上机日期" .TextMatrix(0, 3) = "上机时间" .TextMatrix(0, 4) = "机房号" '将数据库的值赋给表格 Do While Not mrc.EOF .Rows = .Rows + 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(6)) .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7)) .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8)) mrc.MoveNext Loop End With mrc.Close MSFlexGrid1.CellAlignment = 4 End Sub片所有学生下线：
'所有学生下线代码 Private Sub AllOffLine_Click() Dim msgtext As String Dim txtsql As String Dim mrc As ADODB.Recordset txtsql = "delete from online_Info" Set mrc = ExecuteSQL(txtsql, msgtext) '将查询内容显示在表格控件中 With MSFlexGrid1 .Rows = 2 '两行 .CellAlignment = 4 '单元格内容居中,居中对齐 .TextMatrix(0, 0) = "卡号" .TextMatrix(0, 1) = "学号" .TextMatrix(0, 2) = "姓名" .TextMatrix(0, 3) = "上机日期" .TextMatrix(0, 4) = "上机时间" .TextMatrix(0, 5) = "电脑号" End With MsgBox "所有同学已下机，控件内容将全部清空!", vbOKOnly + vbExclamation, "提示" MSFlexGrid1.Clear '清空部件内容 AllOffLine.Enabled = False '所有学生下线按钮不可用 End Sub选中学生下线：
'选中学生下线代码 Private Sub ChooseOffLine_Click() Dim msgtext As String Dim txtsql As String Dim mrc As ADODB.Recordset MSFlexGrid1.SelectionMode = flexSelectionByRow '单击的时候选择的是整行 MSFlexGrid1.FocusRect = flexFocusNone '在当前单元的周围画一个焦点框 MSFlexGrid1.HighLight = flexHighlightWithFocus '该值决定了所选定的单元是否突出显示 With MSFlexGrid1 If .RowSel = 0 Then '选中行为第一行 MsgBox "请选择数据!", vbOKOnly, "提示" Exit Sub End If If .RowSel >= 1 Then txtsql = "select * from OnLine_Info where cardno='" & Trim(.TextMatrix(.RowSel, 0)) & "'" Set mrc = ExecuteSQL(txtsql, msgtext) If mrc.EOF = True Then MsgBox "无上线人数！" Exit Sub Else .RemoveItem .RowSel mrc.Delete End If End If End With mrc.Update End Sub 在做这个窗体时突然出现了一个实时错误“30015”,最后同过设置界面中MSFlexGrid1控件属性得已解决。给下图MSFlexGrid1控件固定行设置成0就行了。 如有问题欢迎留言区评论。。。
