以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于窗口不动了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69344)

--  作者:sara
--  发布时间:2015/6/3 13:52:00
--  关于窗口不动了

窗口不动了,我想实现的是点击后面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
按此在新窗口浏览图片

--  作者:Bin
--  发布时间:2015/6/3 14:04:00
--  
模式窗口? 改为独立窗口
--  作者:sara
--  发布时间:2015/6/3 14:05:00
--  
是独立窗口的
--  作者:大红袍
--  发布时间:2015/6/3 14:09:00
--  

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

 

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

 

 代码没问题。


--  作者:sara
--  发布时间:2015/6/3 14:11:00
--  
客户资料建档应该是个主窗口吧
--  作者:sara
--  发布时间:2015/6/3 14:12:00
--  
独立窗口可以作为一个Tab页面加到Tab中吗
--  作者:sara
--  发布时间:2015/6/3 14:21:00
--  
程序备上
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:erp综合管理系统.foxdb


--  作者:大红袍
--  发布时间:2015/6/3 14:39:00
--  
 请不要上传别人不能测试的项目啊。
--  作者:sara
--  发布时间:2015/6/3 14:40:00
--  
对啊,这个倒是外部数据库,不好整啊
--  作者:大红袍
--  发布时间:2015/6/3 14:42:00
--  
 单独做一个简单的,有问题的例子发上来测试。比如做一个表,然后做一个窗口。