Foxtable(狐表)用户栏目专家坐堂 → 关于窗口不动了


  共有2613人关注过本帖树形打印复制链接

主题:关于窗口不动了

美女呀,离线,留言给我吧!
sara
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
关于窗口不动了  发帖心情 Post By: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
按此在新窗口浏览图片

 回到顶部
美女呀,离线,留言给我吧!
sara
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 14:05:00 [显示全部帖子]

是独立窗口的

 回到顶部
美女呀,离线,留言给我吧!
sara
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 14:11:00 [显示全部帖子]

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

 回到顶部
美女呀,离线,留言给我吧!
sara
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 14:12:00 [显示全部帖子]

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

 回到顶部
美女呀,离线,留言给我吧!
sara
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 14:21:00 [显示全部帖子]

程序备上
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

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


 回到顶部
美女呀,离线,留言给我吧!
sara
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 14:40:00 [显示全部帖子]

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

 回到顶部
美女呀,离线,留言给我吧!
sara
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 14:48:00 [显示全部帖子]

If Forms("客户资料").Opened = True Then这一句有问题就是死在这里了

 回到顶部
美女呀,离线,留言给我吧!
sara
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1871 积分:12372 威望:0 精华:0 注册:2014/11/12 16:09:00
  发帖心情 Post By:2015/6/3 15:53:00 [显示全部帖子]

实在不知道是什么问题,不做这个功能了吧

 回到顶部