Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：最末行如何接收以前行的内容？
1楼
shxiaoya 发表于：2009/5/22 12:43:00
显示结果见“比较命令”列
要求：无论修改、删除行，最后一行都及时发生变化。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

2楼
狐狸爸爸 发表于：2009/5/22 13:07:00

小妹妹，高级筛选窗口不是这么做的。
比较命令列不需要，保留前三列，最后单击一个按钮，根据用户的输入合成条件表达式，系统的高级筛选窗口就是这么做的。

3楼
mr725 发表于：2009/5/22 13:09:00
是不是删除了第二行后，最后行的比较列就由 [用户编号] = '11' And [负责人] = 'bb' Or [班组] = '2班'  自动变为：[用户编号] = '11' Or [班组] = '2班'     

我理解的，是这样吗？

4楼
shxiaoya 发表于：2009/5/22 15:10:00
搞定图片点击可在新窗口打开查看
5楼
mr725 发表于：2009/5/22 21:52:00
以下是引用shxiaoya在2009-5-22 15:10:00的发言：
搞定图片点击可在新窗口打开查看

能分享一下吗？ 谢谢老师了～

6楼
mr725 发表于：2009/5/25 13:32:00
没有分享到 shxiaoya 的成果，自己在1楼的附件的基础上做的代码，不知道是否完善：：


if e.datacol.name = "内容" orelse e.datacol.name = "连接" orelse e.datacol.name = "列" orelse e.datacol.name = "比较" then
    If Currenttable.position = 0 Then
        If CurrentTable(0,"内容") = nothing Then
            CurrentTable(0,"比较命令") = nothing
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                    if CurrentTable(0,"比较命令") <> ""
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    else
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                        CurrentTable(r,"比较命令") = CurrentTable(r,"比较命令").replace(CurrentTable(1,"连接"),"")
                    end if

                    end if
                Next
        else
            Dim r0 As Row = Tables("表A").Rows(0)
            r0("比较命令")  = "[" & r0("列") & "] "  & r0("比较") & " '" & r0("内容") & "'"
            if Currenttable.position+1 <  Currenttable.count -1 then
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    end if
                Next
            end if
        end if
    end if
    If Currenttable.position > 0 Then
        Dim d As string
        d = CurrentTable.current("编号")
        if CurrentTable.current.isnull("内容") then
            CurrentTable.current("比较命令") = nothing
            if Currenttable.position +1 <= Currenttable.count -1 then
                For  r2 As integer = Currenttable.position +1 to Currenttable.count -1
                    if CurrentTable(r2,"内容") <> "" then
                        CurrentTable(r2,"比较命令") = CurrentTable(r2,"比较命令").replace(CurrentTable(Currenttable.position,"连接") & " " & "[" & CurrentTable(Currenttable.position,"列") & "] "  & CurrentTable(Currenttable.position,"比较") & " '" & d & "'" ," ")
                    end if
                Next
            end if
        else
            CurrentTable(Currenttable.position ,"比较命令") = CurrentTable(Currenttable.position -1,"比较命令") & CurrentTable(Currenttable.position ,"连接") & " " & "[" & CurrentTable(Currenttable.position ,"列") & "] "  & CurrentTable(Currenttable.position ,"比较") & " '" & CurrentTable(Currenttable.position ,"内容") & "'"
            if Currenttable.position+1 <=  Currenttable.count -1 then
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    end if
                Next
            end if
        end if
    end if
end if

7楼
don 发表于：2009/5/25 13:39:00
以下是引用mr725在2009-5-25 13:32:00的发言：
没有分享到 shxiaoya 的成果，自己在1楼的附件的基础上做的代码，不知道是否完善：：


if e.datacol.name = "内容" orelse e.datacol.name = "连接" orelse e.datacol.name = "列" orelse e.datacol.name = "比较" then
    If Currenttable.position = 0 Then
        If CurrentTable(0,"内容") = nothing Then
            CurrentTable(0,"比较命令") = nothing
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                    if CurrentTable(0,"比较命令") <> ""
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    else
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                        CurrentTable(r,"比较命令") = CurrentTable(r,"比较命令").replace(CurrentTable(1,"连接"),"")
                    end if

                    end if
                Next
        else
            Dim r0 As Row = Tables("表A").Rows(0)
            r0("比较命令")  = "[" & r0("列") & "] "  & r0("比较") & " '" & r0("内容") & "'"
            if Currenttable.position+1 <  Currenttable.count -1 then
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    end if
                Next
            end if
        end if
    end if
    If Currenttable.position > 0 Then
        Dim d As string
        d = CurrentTable.current("编号")
        if CurrentTable.current.isnull("内容") then
            CurrentTable.current("比较命令") = nothing
            if Currenttable.position +1 <= Currenttable.count -1 then
                For  r2 As integer = Currenttable.position +1 to Currenttable.count -1
                    if CurrentTable(r2,"内容") <> "" then
                        CurrentTable(r2,"比较命令") = CurrentTable(r2,"比较命令").replace(CurrentTable(Currenttable.position,"连接") & " " & "[" & CurrentTable(Currenttable.position,"列") & "] "  & CurrentTable(Currenttable.position,"比较") & " '" & d & "'" ," ")
                    end if
                Next
            end if
        else
            CurrentTable(Currenttable.position ,"比较命令") = CurrentTable(Currenttable.position -1,"比较命令") & CurrentTable(Currenttable.position ,"连接") & " " & "[" & CurrentTable(Currenttable.position ,"列") & "] "  & CurrentTable(Currenttable.position ,"比较") & " '" & CurrentTable(Currenttable.position ,"内容") & "'"
            if Currenttable.position+1 <=  Currenttable.count -1 then
                For  r As integer = 1 to Currenttable.count -1
                    if CurrentTable(r,"内容") <> "" then
                        CurrentTable(r,"比较命令") = CurrentTable(r-1,"比较命令") & CurrentTable(r,"连接") & " " & "[" & CurrentTable(r,"列") & "] "  & CurrentTable(r,"比较") & " '" & CurrentTable(r,"内容") & "'"
                    end if
                Next
            end if
        end if
    end if
end if

昏!天书一般.

共7 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 3 queries.