Foxtable(狐表)用户栏目专家坐堂 → 引用问题


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

主题:引用问题

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 8:53:00 [显示全部帖子]

你在引用表的名头列输入“数据库1”,引用数据库1表中相对应名头的数据? 问题是数据库1表有很多行,引用哪一行?

请清晰地说明问题。


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 9:59:00 [显示全部帖子]

引用表,就一个名头列,同时要区分表头和名头,这怎么可能?

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/2 15:12:00 [显示全部帖子]

设置引用表的DataColChanged事件:

 

Select Case e.DataCol.Name
    Case "名头","表名"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("名头") = False AndAlso dr.IsNull("表名") = False AndAlso DataTables.Contains(dr("表名")) Then
            Dim dt As DataTable = DataTables(dr("表名"))
            Dim dr2 As DataRow = dt.Find("名头 = '" & dr("名头") & "'")
            Dim nms() As String = {"第三列","第四列","第五列","第六列","第七列"}
            If dr2 IsNot Nothing Then
                For Each nm As String In nms
                    dr(nm) = dr2(nm)
                Next
            End If
        End If
End Select


 回到顶部