备注是否可以关联到另外一个表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 备注是否可以关联到另外一个表

共有25165人关注过本帖树形打印复制链接主题：备注是否可以关联到另外一个表

blackzhu

小大 41楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/9/16 13:37:00 [只看该作者]

以下是引用mr725在2010-9-16 13:18:00的发言：

应该是这样把：

Dim r As Row = CurrentTable.current

Dim mx As String
Dim drs As List(Of DataRow)

drs = DataTables("出货明细").Select("[公司] = '" & r("公司") & "'")   ’公司可以换成 A1
For Each dr As DataRow In drs
    r("出货明细") = ""
    mx = mx & dr("出货时间") & " " & dr("出货数量") & vbCrLf

Next
r("出货明细") = mx

[此贴子已经被作者于2010-9-16 13:20:04编辑过]

只计算了一条数据,这是怎么回事?

mr725

小大 42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/16 13:50:00 [只看该作者]

以下是引用blackzhu在2010-9-16 13:37:00的发言：

只计算了一条数据,这是怎么回事?

明细表里只有一条记录吧～

blackzhu

小大 43楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57584 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/9/16 13:53:00 [只看该作者]

以下是引用mr725在2010-9-16 13:50:00的发言：

明细表里只有一条记录吧～

不是的,有很多记录的.

mr725

小大 44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/16 13:58:00 [只看该作者]

以下是引用blackzhu在2010-9-16 13:53:00的发言：

不是的,有很多记录的.

DataColChanged：

If e.DataCol.Name = "产品" Then
    Dim r As Row = CurrentTable.current
    Dim mx As String
    Dim drs As List(Of DataRow)
    output.show(r("公司") )
    drs = DataTables("出货明细").Select("[公司] = '" & r("公司") & "'")
    For Each dr As DataRow In drs
        r("出货明细") = ""
        mx = mx & dr("出货时间") & " " & dr("出货数量") & vbCrLf
    Next

r("出货明细") = mx '只是备注型列 "出货明细" 前两行空格有点问题, 高手帮看看怎么回事？？
End If

图片点击可在新窗口打开查看此主题相关图片如下：bz.gif