建站公司 网站营销策略ppt

温习知识

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