Foxtable(狐表) → 用户栏目 → 专家坐堂 → 条件不起作用


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

主题：条件不起作用
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/13 20:43:00 [显示全部帖子]

Table.AddNew()后Table.Current就是这新增的行，新增的行默认都是没有值的，当然不起作用

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 10:46:00 [显示全部帖子]

dim r as row = Tables("补偿计算表.安置明细表").Current
if r is nothing then return
Tables("补偿计算表.安置明细表").AddNew()
If r("建筑物类别") = "安置房" Then
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/14 11:31:00 [显示全部帖子]

说明之前选择的行的数据不符合判断的条件

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/15 13:51:00 [显示全部帖子]

这个要到表事件处理
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:北开搬迁管理系统.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/15 14:57:00 [显示全部帖子]

怎么识别某套房子被选择了？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/15 16:04:00 [显示全部帖子]

Dim tb As New DropTreeBuilder
tb.TreeFilter = "是否已安置=false"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/17 13:51:00 [显示全部帖子]

AfterSelChange事件

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.NewRange.Rowsel) '获得选择的行
        r("是否已安置")=true
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/17 14:41:00 [显示全部帖子]

DataColChanged事件


Select Case e.DataCol.Name
    Case "建筑物类别","小区名称","楼号","房号"
        If e.DataRow.IsNull("楼号") = False AndAlso e.DataRow.IsNull("楼号")
            Dim dt As DataTable = DataTables(e.DataRow("建筑物类别") & "规格表")
            Dim dr As DataRow
            If e.DataRow("建筑物类别") = "安置房"
                If e.DataRow.IsNull("房号") = False
                    dr = dt.Find("小区名称='" & e.DataRow("小区名称") & "' And 楼号= " & e.DataRow("楼号") & " And 房号=" & e.DataRow("房号"))
                End If
            Else
                dr = dt.Find("小区名称='" & e.DataRow("小区名称") & "' And 楼号= " & e.DataRow("楼号"))
            End If
            If dr IsNot Nothing Then
                dr("是否已安置") = True
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/17 20:10:00 [显示全部帖子]

重置一下"小区名称"列

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/18 10:01:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "建筑物类别","小区名称","楼号","房号"
        If e.DataRow.IsNull("小区名称") = False AndAlso e.DataRow.IsNull("楼号") = False
            Dim dt As DataTable = DataTables(e.DataRow("建筑物类别") & "规格表")
            Dim dr As DataRow
            If e.DataRow("建筑物类别") = "安置房"
                If e.DataRow.IsNull("房号") = False
                    dr = dt.Find("小区名称='" & e.DataRow("小区名称") & "' And 楼号= " & e.DataRow("楼号") & " And 房号=" & e.DataRow("房号"))
                    If dr IsNot Nothing Then
                        dr("是否已安置") = True
                    End If
                End If
            Else
                dt.ReplaceFor("是否已安置",True,"小区名称='" & e.DataRow("小区名称") & "' And 楼号= '" & e.DataRow("楼号") & "'")
            End If
        End If
End Select
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05396 秒, 6 次数据查询