以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口的SQLtable表为什么不按条件显示数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47345)
--  作者：chnfo
--  发布时间：2014/3/8 16:39:00
--  [求助]窗口的SQLtable表为什么不按条件显示数据
主要目的:
当窗口中的上方表切换行时,窗口中的下方表(SQLtable)按照条件显示出RA列的值
如果表D中找到符合条件的数据,则显示D表中相应行的值,否则
     当Isuse=1时,显示999
        否则=0

但我切换上方表的行时,不论IsUse是不是true,RA列的值总是0.
请教问题出在哪里.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口中的ra列并未按照isuse列的条件显示数据.rar

     
--  作者：狐狸爸爸
--  发布时间：2014/3/8 17:06:00
--  
If Forms("窗口1").Opened = True Then
    Dim t As Table = Tables("窗口1_Table2")
    If t.Cols.Contains("RA") = False Or e.Table.Current Is Nothing Then
        Return
    End If
   
    SystemReady = False
    Try
        For Each r As Row In t.Rows
            Dim FilledDr As DataRow = DataTables("D").Find("Code = \'" & r("Code") & "\' and BID = \'" & e.Table.Current("ID") & "\'")
            If FilledDr IsNot Nothing Then
                r("RA") = FilledDr("A")
            Else
\'                Dim Dr As DataRow = DataTables("表C").Find("Code = \'" & r("Code") & "\'")
\'                If dr IsNot Nothing Then
                    If r("IsUse") = True Then
                        r("RA") = 999
                    Else
                        r("RA") = 0
                    End If
\'                End If
            End If
        Next
    Catch ex As Exception
        MessageBox.Show("追加数据失败")
    End Try
    SystemReady = True
    t.ResumeRedraw
End If
--  作者：chnfo
--  发布时间：2014/3/8 17:08:00
--  
看了帮助,对什么时候用1代替true,用0代替false反而越来越迷惑了
--  作者：狐狸爸爸
--  发布时间：2014/3/8 17:11:00
--  

表达式才可以用1代替，代码始终都是True