Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新手关于行显示的问题


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

主题：新手关于行显示的问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

回5楼，几个问题
1、自己的问题请新建贴，不要发到别人的贴里面

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
2、请不要在代码模式里输入内容

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

3、代码改为
 Case  "客户名称"
        If len(e.NewValue) = 4 Then
            Dim khdm As String = e.NewValue.Toupper
            Dim khdr As DataRow
            khdr =  DataTables("客户管理").Find("代码 = '" & khdm &  "'")
            If khdr IsNot Nothing Then
                e.NewValue = khdr("客户名称")
            Else
                e.Cancel = True
            End If
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请上传具体实例说明问题

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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/23 22:11:00 [显示全部帖子]

请上传具体可以测试的实例说明问题

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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/23 22:42:00 [显示全部帖子]

感觉没有必要那么复杂。

如果涉及隐私，新建项目，导入这个表结构，复制一些数据，把身份证等清空，姓名改为张三李四之类的，然后上传这个项目测试
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim xms As WinForm.TextBox = e.Form.Controls("姓名")
Dim filter As String= ""
If xms.Text > "" Then
    '定义两个变量接收起始行和结束行的行号
    Dim idx As Integer = Tables("表A").FindRow("姓名 = '" & xms.text & "' and 与户主关系='户主'")
    Dim lst As new List(of String)
    If idx > -1 Then
        For i As Integer = idx+1 To Tables("表A").rows.Count - 1
            Dim r As Row = Tables("表A").rows(i)
            If r("与户主关系") <> "户主" Then
                lst.Add(r("_Identify"))
            Else
                Exit For
            End If
        Next
        filter = "[_Identify] in (" & String.Join(",",lst.ToArray) & ")"
    End If
    
End If
Tables("表A").Filter = filter
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

建议增加一个辅助列，这样以后统计查询关联数据更加方便

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

增加辅助列后上面按钮代码只需要一句即可
Tables("表A").Filter = "所属户主='" & e.Form.Controls("姓名").text & "' and 与户主关系 <>'户主'"
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 5 次数据查询