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


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

主题:备注是否可以关联到另外一个表

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望: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编辑过]

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


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/9/16 13:53:00 [显示全部帖子]

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

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

  不是的,有很多记录的.


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/9/16 14:32:00 [显示全部帖子]

奇怪了,为什么刷新列没有用?一列一列刷新可以的.


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/9/18 14:08:00 [显示全部帖子]

以下是引用ASD123456789在2010-9-18 11:38:00的发言:

vars("clpb") = Tables("订单明细").current("发货明细")

其中("clpb") 从那里定义变量??

自己做个变量.看帮助!


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/9/26 13:11:00 [显示全部帖子]

 

LZ请把Initialize离得这句代码放入AfterOpenProject中好吗,每次打开都出错.

 

If MainTable.Name = "订单明细" Then
   Tables("订单明细").Cols("商品名称").ComboList = DataTables("报价明细").GetComboListString("商品名称")
End If


 回到顶部
总数 16 上一页 1 2