主题：关于窗口不动了

窗口不动了，我想实现的是点击后面Table中的一行，前面窗口对应控件显示对应内容。代码如下，结果是点击时候窗口不动了

If Forms("客户资料").Opened = True Then

    Dim ro As Row
    Dim dr As DataRow
    ro = Tables("客户资料建档_Table1").Current
    dr = DataTables("CUST").Find(" [CUS_NO] = '"& ro("CUS_NO") &"'")
    If dr IsNot Nothing Then
        ' If Forms("客户资料").Opened Then
        bianHao.Text = dr("CUS_NO")  '编号
MessageBox.Show(bianHao.Text )
End If

Enf if

此主题相关图片如下：1.png