Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甜老师，小窗口问题


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

主题：甜老师，小窗口问题
帅哥哟，离线，有人找我吗？
cyrollin
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 15:16:00 [只看该作者]

小窗口1里面还是没有输出结果，TIANTIAN 老师：（

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


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 15:34:00 [只看该作者]

可能我之前没表达清楚，发个图片上来


图片点击可在新窗口打开查看此主题相关图片如下：3356.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cyrollin
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 15:38:00 [只看该作者]

是不是还要加一个 客户信息 的条件判断？

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


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 15:46:00 [只看该作者]

If Forms("窗口1").Opened Then
Dim dr as DataRow   
dr = Datatables("派工表").Find("客户信息" = e.table.current("客户信息") )
    With DataTables("派工表")
        Dim dr1 As DataRow = .Find("服务内容 = '" & e.Table.Current("服务内容") & "'","日期 Desc", 0) 
        Dim dr2 As DataRow = .Find("服务内容 = '" & e.Table.Current("服务内容") & "'","日期 Desc", 1) 
        Dim dr3 As DataRow = .Find("服务内容 = '" & e.Table.Current("服务内容") & "'","日期 Desc", 2) 
        If dr1 IsNot Nothing Then
            Forms("窗口1").Controls("TextBox1").Text = dr1("服务内容")
        End If
        If dr2 IsNot Nothing Then
            Forms("窗口1").Controls("TextBox2").Text = dr2("服务内容")
        End If
        If dr3 IsNot Nothing Then
            Forms("窗口1").Controls("TextBox3").Text = dr3("服务内容")
        End If
    End With
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 15:47:00 [只看该作者]

If Forms("窗口1").Opened Then
    With DataTables("派工表")
        Dim drs As List(Of DataRow) = e.Table.DataTable.Select("客户信息 like '" & e.Table.Current("客户信息").split(" ")(0) & "%' and _Identify <> " & e.Table.Current("_Identify"),"日期 Desc")
        If drs.Count > 0 Then
            Forms("窗口1").Controls("TextBox1").Text = drs(0)("服务内容")
        Else
            Forms("窗口1").Controls("TextBox1").Text = Nothing
        End If
        If drs.Count > 1 Then
            Forms("窗口1").Controls("TextBox2").Text = drs(1)("服务内容")
        Else
            Forms("窗口1").Controls("TextBox2").Text = Nothing
        End If
        If drs.Count > 2 Then
            Forms("窗口1").Controls("TextBox3").Text = drs(2)("服务内容")
        Else
            Forms("窗口1").Controls("TextBox3").Text = Nothing
        End If
    End With
End If

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


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 15:48:00 [只看该作者]

也不对。。。。。。。。。 痛哭中。。。

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


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 15:50:00 [只看该作者]

等我测试下。。。。XIE XIE TIANTIAN 

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


加好友 发短信
等级：四尾狐 帖子：821 积分：5760 威望：0 精华：0 注册：2015/2/3 22:19:00 		  发帖心情 Post By：2015/2/11 16:32:00 [只看该作者]

好厉害的感觉。。。甜甜真棒，再帮我加一个代码，就完美了。

当指到空白行的时候，什么数据都没有的时候，小窗口不显示任何内容
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 16:39:00 [只看该作者]

 If Forms("窗口1").Opened Then
    With DataTables("派工表")
        Dim r As Row = e.Table.Current
        Dim s As String = "客户信息 like '" & r("客户信息").split(" ")(0) & "%'"
        If r.Isnull("客户信息") Then s = "1=2"
        Dim drs As List(Of DataRow) = e.Table.DataTable.Select(s & " And _Identify <> " & r("_Identify"),"日期 Desc")
        If drs.Count > 0 Then
            Forms("窗口1").Controls("TextBox1").Text = drs(0)("服务内容")
        Else
            Forms("窗口1").Controls("TextBox1").Text = Nothing
        End If
        If drs.Count > 1 Then
            Forms("窗口1").Controls("TextBox2").Text = drs(1)("服务内容")
        Else
            Forms("窗口1").Controls("TextBox2").Text = Nothing
        End If
        If drs.Count > 2 Then
            Forms("窗口1").Controls("TextBox3").Text = drs(2)("服务内容")
        Else
            Forms("窗口1").Controls("TextBox3").Text = Nothing
        End If
    End With
End If

 回到顶部
总数 29 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询