Option Compare Database '放在窗体模块中的公共变量 Public strSelectIds As String Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim strSql As String strSelectIds = "" '按住 Ctrl + Shift 键,然后用鼠标拖曳可以看到提示结果 If Shift = (acCtrlMask + acShiftMask) Then With Me.RecordsetClone .MoveFirst .Move Me.SelTop - 1 For i = 1 To Me.SelHeight strSql = strSql & "ID = " & ![ID] & "," .MoveNext Next i MsgBox strSql End With End If '将选中的结果保存到公共变量,其父窗体可以调用选择的结果 With Me.RecordsetClone .MoveFirst .Move Me.SelTop - 1 For i = 1 To Me.SelHeight strSelectIds = strSelectIds & !ID & "," .MoveNext Next i End With End Sub |