窗口不动了,我想实现的是点击后面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
![dvubb](skins/default/filetype/png.gif)
此主题相关图片如下:1.png