帮我看看这个if语句

Question

RecordCount得到的是移动过的记录数，所以

Answer 1

 
With 语句
      在一个单一对象或一个用户定义类型上执行一系列的语句。语法With object
[statements]End WithWith 语句的语法具有以下几个部分：部分 描述 
object 必要参数。一个对象或用户自定义类型的名称。 
statements 可选参数。要执行在 object 上的一条或多条语句。 
说明With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。例如，要改变一个对象的多个属性，可以在 With 控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。下面的例子显示了如何使用 With 语句来给同一个对象的几个属性赋值。With MyLabel
   .Height = 2000
   .Width = 2000
   .Caption = "This is MyLabel"
End With注意 当程序一旦进入 With 块，object 就不能改变。因此不能用一个 With 语句来设置多个不同的对象。可以将一个 With 块放在另一个之中，而产生嵌套的 With 语句。但是，由于外层 With 块成员会在内层的 With 块中被屏蔽住，所以必须在内层的 With 块中，使用完整的对象引用来指出在外层的 With 块中的对象成员。重点 一般来说，建议您不要跳入或跳出 With 块。如果在 With 块中的语句被执行，但是 With 或 End With 语句并没有执行，则一个包含对该对象引用的临时变量将保留在内存中，直到您退出该过程。。

Answer 2

如果不movelast的话，recSelect.RecordCount的值不对。
With grdValues和End With 之间的 .xxx都是grdValues的属性年。
这是一种简略的方法，而且速度快。

Answer 3

With 语句示例
本示例使用 With 语句对某单一对象执行一系列的语句。MyObject 对象及其属性均为示范目的而采用了通用名称。With MyObject
   .Height = 100      ' 和 MyObject.Height 一样等于 100 。
   .Caption = "Hello World"   ' 和 MyObject.Caption 一样等于 "Hello World" 。
   With .Font
      .Color = Red      ' 和 MyObject.Font.Color 一样等于 Red。
      .Bold = True      ' 和 MyObject.Font.Bold 一样等于 True 。
   End With
End With

Answer 4

1 movelast可以得到recordcount,不至于出错2 表格的各种属性赋值

Answer 5

1、为了使recSelect.RecordCount正确取到记录条数
2、With ...End With是简化代码的一种方法当你看到
With grdValues
则后续的语句如果直接引用.Rows的话，就相当于是grdValues.Rows，直到碰到End With上面这段语句就相当于
grdValues.Rows = intCount + 1
grdValues.ColWidth(0) = 700: grdValues.ColWidth(1) = 2000: grdValues.ColWidth(2) = 4000
grdValues.Row = 0: grdValues.Col = 0: grdValues.Text = "State"
grdValues.Col = 1: grdValues.Text = "City"
grdValues.Col = 2: grdValues.Text = "Publisher"以上的两种写法是等价的，用了With后省略了许多重复代码

Answer 6

1为什么要movelast
你再往后看，是为了取得当前记录总数
2With grdValues
.Rows = intCount + 1
.ColWidth(0) = 700: .ColWidth(1) = 2000: .ColWidth(2) = 4000
.Row = 0: .Col = 0: .Text = "State"
.Col = 1: .Text = "City"
.Col = 2: .Text = "Publisher"
End With 这是什么意思在With块里就可以省略前面的对象名了。
例如
with form1
  .caption="asdf"
  .left=0
end with
与以下语句作用相同：
form1.caption="asdf"
form1.left=0

Answer 7

……' Make sure the query returned at least one record
If recSelect.RecordCount > 0 Then' Get a count of records in the recordset and display it on the form.
recSelect.MoveLast（问题1）这段的意思应该是要获取数据库中记录的总数

Answer 8

……
2With grdValues
.Rows = intCount + 1
.ColWidth(0) = 700: .ColWidth(1) = 2000: .ColWidth(2) = 4000
.Row = 0: .Col = 0: .Text = "State"
.Col = 1: .Text = "City"
.Col = 2: .Text = "Publisher"
End With 
这里应该是对控件grdValues 属性的设置。比如说：With 你.腿=2[条]
.胳膊= 2[条]End With