模式窗口的代码换成独立窗口，代码就不好使了， 模式窗口的代码和独立窗口的代码哪里有区别呢？

Dim str As String = ""
For Each r As Row In Tables("选房窗口_Table1").Rows
    If r.Checked Then
        str += r("房间号") + ","
    End If
Next

For Each r2 As Row In Tables("选房窗口_Table2").Rows
    If r2.Checked Then
        str += r2("房间号") + ","
    End If
Next

If bianliangchuangkouname="客户详细信息" Then
   
    With Tables("userb.zclxingcheng")
        Dim rx As Integer
        rx = .Find( bianliangxingchengid & "" ,0, "日程ID", False, True , True)    \'从第一行开始查找
        If rx >= 0 Then \'如果找到的话
            .Position = rx \'定位到找到的行.
            Tables("userb.zclxingcheng").current("房间号")=str.Trim(",")
        Else
            messagebox.show("选房窗口no find ?")
        End If
    End With
   
Else
   
    With Tables("zclxingcheng")
        Dim rx As Integer
        rx = .Find( bianliangxingchengid & "" ,0, "日程ID", False, True , True)    \'从第一行开始查找
        If rx >= 0 Then \'如果找到的话
            .Position = rx \'定位到找到的行.
            Tables("zclxingcheng").current("房间号")=str.Trim(",")
        Else
            messagebox.show("选房窗口no find ?")
        End If
    End With
   
End If

 不明白你什么意思，没有区别。

 模式和独立，区别在于，模式窗口打开以后，剩下的代码就在窗口关闭以后执行。

 比如，你可以加入TextBox1，位置设置成 上 -30

 用下面的代码就能回到顶部 e.Form.Controls("TextBox1").Select