[求助]添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]添加

共有2150人关注过本帖树形打印复制链接主题：[求助]添加

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

[求助]添加 发帖心情

Post By：2018/11/7 19:18:00 [只看该作者]

老师好，我想把当前表的列行的单元格中的字段添加到另外表的列中该列中的字段不充分（无条件添加）

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/7 19:54:00 [只看该作者]

具体一点你的问题，最好有时里或者截图说明，说明要做到的效果。

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/11/7 20:28:00 [只看该作者]

老师，我不要根据逻辑列来复制摘要字段。如果摘要列输入字段列表项目表的摘要列就添加该字段列表项目表禁止重复。

，If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True Then
    Dim nma() As String = {"摘要"} 'A表数据来源列
    Dim nmb() As String = {"摘要"} 'B表数据接收列
    Dim dr As DataRow = DataTables("列表项目").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/7 21:38:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/2490.htm

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/11/7 21:46:00 [只看该作者]

老师，没有关联列。这样可以吗？
Select Case e.DataCol.name
    Case "_Identify"
        Dim dr As DataRow = DataTables("列表项目").Find("_Identify = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("列表项目").AddNew()
            dr("摘要") = e.DataRow("摘要")

        Else
            dr("_Identify") = e.DataRow("_Identify")
        End If
    Case "摘要","摘要"
        Dim dr As DataRow = DataTables("列表项目").Find("_Identify = '" & e.DataRow("_Identify") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/7 22:05:00 [只看该作者]

改成

Select Case e.DataCol.name
    Case "摘要"
        Dim dr As DataRow = DataTables("列表项目").Find("摘要 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("列表项目").AddNew()
            dr("摘要") = e.DataRow("摘要")
        Else
            dr("摘要") = e.DataRow("摘要")
        End If

End Select

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2018/11/7 23:24:00 [只看该作者]

老师，列表项目表摘要列的字段不置顶中间有空白行。

此主题相关图片如下：图像 123.png

[此贴子已经被作者于2018/11/8 6:14:28编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/8 8:43:00 [只看该作者]

Select Case e.DataCol.name
    Case "摘要"
        Dim dr As DataRow = DataTables("列表项目").Find("摘要 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("列表项目").Find("摘要 is null")
            If dr Is Nothing Then dr = DataTables("列表项目").AddNew()
            dr("摘要") = e.DataRow("摘要")
        Else
            dr("摘要") = e.DataRow("摘要")
        End If

End Select

下一主题 >> << 上一主题

主题：[求助]添加