主题：关于窗口不动了

窗口不动了，我想实现的是点击后面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

模式窗口? 改为独立窗口

是独立窗口的

 客户资料建档 也要改成独立窗口。

 

 反正模式、独立、置顶，你自己改一下，不行，就做个例子上来。

 

 代码没问题。

客户资料建档应该是个主窗口吧

独立窗口可以作为一个Tab页面加到Tab中吗

程序备上
此主题相关图片如下：2.png


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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:erp综合管理系统.foxdb

 请不要上传别人不能测试的项目啊。

对啊，这个倒是外部数据库，不好整啊

 单独做一个简单的，有问题的例子发上来测试。比如做一个表，然后做一个窗口。