关于数据字段类型的问题?[已解决]

wktt6833

下面一段代码中“红字部分”,要求字段类型为数值型，如果为“字符型”时就不能运行，
能否将“=”改为“like”

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim lRows As Long
  Dim I As Long
  
  If KeyCode = 116 Then
    If MsgBox("您确定要复制 " & SelHeight & " 条数据吗？", vbExclamation + vbYesNo) = vbNo Then Exit Sub
    lRows = Me.SelHeight        ' 选定的行数
    DoCmd.Echo False
    For I = lRows To lRows
      CurrentDb.Execute "INSERT INTO Tbl2 ( A, B, C ) SELECT Tbl1.A, Tbl1.B, Tbl1.C FROM Tbl1 WHERE Tbl1.ID=" & Me.ID & ";"
      Me.Recordset.MoveNext
    Next
    Forms!copyform.sFrm2.Form.Requery
    DoCmd.Echo True
  End If
  
End Sub

[ 本帖最后由 wktt6833 于 2008-2-5 21:31 编辑 ]

wktt6833

CUXUN版主你好：
    改动后可以使用，但一次只能复制一行。

wktt6833

选中的是多行，但只能复制一行（程序支持多行复制）

wktt6833

非常感谢，问题已解决。