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


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

主题:条件不起作用

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望: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

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


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2020/9/18 10:42:00 [只看该作者]

老师,还是不起作用,可否你试着连续录入两个明细看看,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/18 10:46:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:北开搬迁管理系统.zip


 回到顶部
总数 23 上一页 1 2 3