Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口的SQLtable表为什么不按条件显示数据


  共有3719人关注过本帖树形打印复制链接

主题:[求助]窗口的SQLtable表为什么不按条件显示数据

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2198 积分:18064 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]窗口的SQLtable表为什么不按条件显示数据  发帖心情 Post By:2014/3/8 16:39:00 [只看该作者]

主要目的:
当窗口中的上方表切换行时,窗口中的下方表(SQLtable)按照条件显示出RA列的值
如果表D中找到符合条件的数据,则显示D表中相应行的值,否则
     当Isuse=1时,显示999
        否则=0

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

     

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2198 积分:18064 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2014/3/8 17:08:00 [只看该作者]

看了帮助,对什么时候用1代替true,用0代替false反而越来越迷惑了

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/3/8 17:11:00 [只看该作者]

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


 回到顶部