做一个能注册用户的网站,无锡游戏网站建设公司,门禁考勤网站建设,长宁网站建设温习知识
Row:返回单元格或者区域所在的行号; Rows:返回区域的行数#xff0c;即高度#xff0c;有几行。 前者常用于数组公式#xff0c;用来返回1234…常量#xff0c;进行枚举运算
出现问题 解决方法
Private Sub cmdquery_Click() Dim txtsql, msgtext As String Di…温习知识
Row:返回单元格或者区域所在的行号; Rows:返回区域的行数即高度有几行。 前者常用于数组公式用来返回1234…常量进行枚举运算
出现问题 解决方法
Private Sub cmdquery_Click() Dim txtsql, msgtext As String Dim mrc As ADODB.Recordset
If Not testtxt(Trim(txtcardno.Text)) Then MsgBox “请输入卡号!”, 0 48, “提示” txtcardno.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtcardno.Text)) ThenMsgBox 请输入数字, 0 48, 提示txtcardno.Text txtcardno.SetFocusExit SubEnd Iftxtsql select * from line_info where cardno Trim(txtcardno.Text) Set mrc ExecuteSQL(txtsql, msgtext)If mrc.EOF True ThenMsgBox 卡号不存在,请重新输入, 0 48, 提示txtcardno.Text txtcardno.SetFocusExit SubEnd IfWith myFlexGrid1.Rows 1 *把Row改成Rows就行了*.CellAlignment 4.TextMatrix(0, 0) 卡号.TextMatrix(0, 1) 姓名.TextMatrix(0, 2) 上机日期.TextMatrix(0, 3) 上机时间.TextMatrix(0, 4) 下机日期.TextMatrix(0, 5) 下机时间.TextMatrix(0, 6) 消费金额.TextMatrix(0, 7) 余额.TextMatrix(0, 8) 备注Do While Not mrc.EOF.Rows .Rows 1.CellAlignment 4.TextMatrix(.Rows - 1, 0) mrc.Fields(1).TextMatrix(.Rows - 1, 1) mrc.Fields(3).TextMatrix(.Rows - 1, 2) mrc.Fields(6).TextMatrix(.Rows - 1, 3) mrc.Fields(7).TextMatrix(.Rows - 1, 4) mrc.Fields(8) .TextMatrix(.Rows - 1, 5) mrc.Fields(9) .TextMatrix(.Rows - 1, 6) mrc.Fields(11) .TextMatrix(.Rows - 1, 7) mrc.Fields(12) .TextMatrix(.Rows - 1, 8) mrc.Fields(13) 移动到下一条记录mrc.MoveNextLoopEnd With mrc.CloseEnd Sub