Foxtable(狐表)用户栏目专家坐堂 → [求助]关联表的同名列数据填充问题,求指点.


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

主题:[求助]关联表的同名列数据填充问题,求指点.

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


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
[求助]关联表的同名列数据填充问题,求指点.  发帖心情 Post By:2008/12/7 16:28:00 [只看该作者]

表A为主表
与表B.C建立关联表,以客户ID为关联列
A.B.C有同名结账逻辑列
希望实现表A结账逻辑列=True则表B.C相关联行结账逻辑列=True

我的代码怎么不行啊?是不是需要用循环语句?用哪个比较好?
DataColchanged:

Dim da as DataRow = e.DataRow
If da("结账") = True Then
e.DataRow.Locked = True
Dim dr as DataRow
dr = DataTables("表B").Find("客户ID = " & da("客户ID"))
dt = DataTables("表C").Find("客户ID = " & da("客户ID"))
dr("结账") = da("结账")
dt("结账") = da("结账")
End If


[此贴子已经被作者于2008-12-7 16:33:59编辑过]

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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2008/12/7 17:50:00 [只看该作者]

if e.Datacol.name = "结账" then
        Dim T as String
        Dim dr1,dr2  as DataRow
        dr1 = e.DataRow
        If dr1("结账") = True Then            
              If  dr1("客户ID") is Nothing Then
                     MessageBox.Show("请输入客户ID!", "提示")
              Else
                    T = "客户ID = " &  dr1("客户ID")      
                    dr1.Locked = True               
                    for each dr2 in DataTables("表B").select(T)
                           dr2("结账") = True 
                    Next
                    for each dr2 in DataTables("表C").select(T)
                          dr2("结账") = True 
                    Next
              End If
       End If
End If

[此贴子已经被作者于2008-12-7 17:59:24编辑过]

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


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2008/12/7 19:13:00 [只看该作者]

图片点击可在新窗口打开查看don老兄,牛人.

多谢指点..

不过代码不能逆行,哈哈.图片点击可在新窗口打开查看

 回到顶部