Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口如何关联显示相关内容


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

主题:[求助]窗口如何关联显示相关内容

帅哥哟,离线,有人找我吗?
ouyangfenghuan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
[求助]窗口如何关联显示相关内容  发帖心情 Post By:2016/8/9 15:17:00 [显示全部帖子]

窗口如何关联显示相关内容
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160809143118.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
如右边窗口中的"订单数量","库存数量"是帮定到订单表,当选中中间的行时右边如何关联显示

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/9 15:19:00 [显示全部帖子]

另外如何做到窗口中间的订单数量等数值只读

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/9 15:33:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
现在打开的是订单跟踪表,右边窗口中的订单数量是绑定的"订单表"数据.如何不用关联表来实现窗口中控件的关联?

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/9 15:38:00 [显示全部帖子]

现在用的控件是RecordGrid

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/9 19:05:00 [显示全部帖子]

谢谢老师


图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看


右边的向上缩了,怎样将窗口固定成4楼的样子


 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/9 21:04:00 [显示全部帖子]

现在右边左右上下的控件的是1个窗口,下面一个窗口.


 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/9 21:08:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看
现在想做一个如图类似的统计表来显示.用什么方法和控件较好?图中用的是Topiclink,但是主表换行了工序数据不会变
[此贴子已经被作者于2016/8/9 21:09:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/10 8:27:00 [显示全部帖子]

代码是这样的

If Forms("生产详细").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("生产详细_Table1")
    With Tables("订单跟踪表")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            If e.Table.Current IsNot Nothing Then
                DataTables("生产日报表").LoadFilter = "订单编号 = '" & e.Table.Current("订单表序号") & "'"
            Else
                DataTables("生产日报表").LoadFilter = "[_Identify] is null"
            End If
            DataTables("生产日报表").Load()
            t.Filter = "订单编号 = '" & .Current("订单表序号") & "'"
        End If
    End With
End If

 


 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/13 11:25:00 [显示全部帖子]

示例一

定在客户消费数据表中,有一逻辑型数据列,列名为“已结帐”,我们希望对于已结帐的行,能够自动通过审核(锁定),以免被误编辑。 
为实现这个目标,只需在DataColChanged事件中设置如下代码即可: 

If e.DataCol.Name = "已结帐" Then '如果是已结帐列的内容变动
   
If e.NewValue = True Then '而且变动后的值是True(已勾选)
        e.
DataRow.Locked = True '那么锁定此行
   
End If
End
If



反过来,当解锁行是已结账自动取消勾选,

If e.Table.Current IsNot Nothing Then 
    
If 
e.Table.Current.Locked = false

        e.Table.Current("已结账") = false

   End If
End
 
If

代码写在哪里好?

 回到顶部
帅哥哟,离线,有人找我吗?
ouyangfenghuan
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:277 积分:2406 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2016/8/13 12:16:00 [显示全部帖子]

这个里面解锁行后没有马上取消勾选,要再次选中才会取消,

 回到顶部
总数 32 1 2 3 4 下一页