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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动复制行

共有2651人关注过本帖树形打印复制链接主题：自动复制行

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/12 8:35:00 [显示全部帖子]

If e.DataCol.Name = "性别"

Dim s As String

Select Case e.DataRow("性别")

Case "男"

s = "表B"

Case "女"

s = "表C"

Case "人妖"

s = "表D"

Case Else

Return

End Select

Dim dr As DataRow = DataTables(s).AddNew

For Each dc As DataCol In DataTables(s).DataCols

dr(dc.Name) = e.DataRow(dc.Name)

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/4/12 22:33:00 [显示全部帖子]

If e.DataCol.Name = "性别" orelse e.DataCol.Name = "逻辑列名"

If e.DataRow("逻辑列名") = True Then
    Dim s As String
    Select Case e.DataRow("性别")
        Case "男"
            s = "表B"
        Case "女"
            s = "表C"
        Case "人妖"
            s = "表D"
        Case Else
            Return
    End Select
        Dim nma() As String = {"第一列","第二列","第三列","第四列"} 'A表数据来源列
        Dim nmb() As String = {"第一列","第二列","第三列","第四列"} 'B表数据接收列
        Dim dr As DataRow = DataTables(s).AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    End If
End If

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

主题：自动复制行