Foxtable(狐表)用户栏目专家坐堂 → 关联


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

主题:关联

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
关联  发帖心情 Post By:2014/7/8 14:28:00 [显示全部帖子]

父表按时间段筛选后子表能不能也同时出现在相同时间段内的所有关联

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/8 15:10:00 [显示全部帖子]


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

 

我的意思是,上边的父表是按时间段和条件进行筛选的,我希望下边的子表中的时间段也是和父表一样。


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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/8 15:27:00 [显示全部帖子]

稍稍改动一下,可以了 ,谢谢老师

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/8 18:27:00 [显示全部帖子]


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

只按照一个条件查询 下方的两个子表关联内容怎么都不显示呢?代码如下

Dim cy As WinForm.ComboBox = e.Form.Controls("承运")

Tables("应付查询").Filter = "承运单位 = '" & cy.Text & "'"

Dim Filter As String
With e.Form.Controls("承运")
    If .Value IsNot Nothing Then
        Filter = "承运单位 = '" & .Value & "'"
        
    End If
End With
With e.Form.Controls("起始时间")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("结束时间")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("应付查询").Filter = Filter
   End If
Dim d1 As Date = e.Form.Controls("起始时间").Value
Dim d2 As Date = e.Form.Controls("结束时间").Value
Tables("应付查询.扣款录入").Filter = "日期 >= #" & d1 & "# and 日期 <= #" & d2 & "#"
Tables("应付查询.应收查询").Filter = "日期 >= #" & d1 & "# and 日期 <= #" & d2 & "#"


 


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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/8 19:16:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.table

只输入一个筛选条件后,两个子表关联列没有显示,输入时间筛选后就会出现。

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/8 19:36:00 [显示全部帖子]

恩  谢谢 ,顺便问一下绑定的数据表怎么不能在顶部全部填充呢?
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140708192826.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/9 14:55:00 [显示全部帖子]

Tables("表名").ExtendLastCol = True  这个是调整最后一列的宽度,要是自动调整所有列的宽度并且也是填充空白区域代码该怎么写呢?

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/9 15:11:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140709151001.png
图片点击可在新窗口打开查看
这是什么意思?

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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/9 15:27:00 [显示全部帖子]


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


Tables("员工").AutoSizeCols()  把这个代码加进去就出现刚才那种情况


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


加好友 发短信
等级:一尾狐 帖子:407 积分:3087 威望:0 精华:0 注册:2014/6/10 11:31:00
  发帖心情 Post By:2014/7/9 15:49:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.table

Tables("扣款录入").AutoSizeCols()  加到
图片点击可在新窗口打开查看此主题相关图片如下:1230.png
图片点击可在新窗口打开查看

 回到顶部
总数 14 1 2 下一页