显示多个不同状态的行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示多个不同状态的行

共有8713人关注过本帖树形打印复制链接主题：显示多个不同状态的行

jspta

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

加好友

发短信

等级：七尾狐帖子：1731 积分：11255 威望：0 精华：0 注册：2011/12/15 22:06:00

Post By：2012/8/31 20:57:00 [显示全部帖子]

Dim dt As DataTable = CurrentTable.DataTable
Dim d As String
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Modified Then
        d = d & "," & dr("_Identify")
    ElseIf dr.RowState = DataRowState.Added Then
        d = d & "," & dr("_Identify")
    End If
Next
If d <> "" Then
    d = d.Trim(",")
    CurrentTable.Filter = "[_Identify] in (" & d & ")"
End If

StateFilter是枚举型的，没有办法

jspta

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

加好友

发短信

等级：七尾狐帖子：1731 积分：11255 威望：0 精华：0 注册：2011/12/15 22:06:00

Post By：2012/8/31 23:12:00 [显示全部帖子]

以下是引用czy在2012-8-31 21:31:00的发言：
For Each dr As DataRow In CurrentTable.DataTable.DataRows
    If dr.RowState = DataRowState.Modified Then
        dr.BaseRow("System_Filter_Unique") = 1
    ElseIf dr.RowState = DataRowState.Added Then
        dr.BaseRow("System_Filter_Unique") = 1
    End If
Next
CurrentTable.Filter = "System_Filter_Unique = 1"

请教baseRow怎么用？

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

主题：显示多个不同状态的行