Foxtable(狐表) → 用户栏目 → 专家坐堂 → e参数的上面一行和下面一行


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

主题：e参数的上面一行和下面一行
帅哥哟，离线，有人找我吗？
lur320
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：983 积分：8628 威望：0 精华：0 注册：2015/8/12 16:28:00 		e参数的上面一行和下面一行  发帖心情 Post By：2016/6/30 19:28:00 [只看该作者]

在不考虑sorting的情况下。就是datatables和tables一样内容的情况下。
在 datacolchanged里面写什么代码可以实现输入的单元格的下面一行和上面一行？
以为我的计算是与紧挨着的两行进行计算的。
 回到顶部
帅哥哟，离线，有人找我吗？
lur320
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：983 积分：8628 威望：0 精华：0 注册：2015/8/12 16:28:00 		  发帖心情 Post By：2016/6/30 19:29:00 [只看该作者]

我的代码是这样的。打问号的就是不知道怎么写的地方

If e.DataCol.Name = "料号" Then
    Dim rw1,rw2 As Integer
    Dim item1, item2 As DataRow
    rw1= e.DataRow.???????
    item1 = DataTables("料号属性表").Find("[料号] ='" & Tables("工单制作表").rows(rw1)("料号") & "'")
    rw2= rw1 + 1
    item2 = DataTables("料号属性表").Find("[料号] ='" & Tables("工单制作表").rows(rw2)("料号") & "'")
    
    Dim checker As Boolean = True
    For Each dc As DataCol In DataTables("料号属性表").DataCols
        If item1.isnull(dc) Or item2.isnull(dc) Then
            checker=False
        End If
    Next
    If checker =False Then
        messagebox.Show("第 " & rw1+1 & " 和第 " & rw2+1 & " 行料号存在缺失的属性信息,请补充完整")
    Else
        Dim c1 As Single
        If item1("载体类型")=item2("载体类型") Then
            c1 = 0
        Else
            If item1("卷曲模式")= "pet" Then
                If item2("卷曲模式")= "pet" Then
                    c1=Tables("changover参数表").Rows(0)("时间")
                ElseIf item2("卷曲模式")= "paper" Then
                    c1=Tables("changover参数表").rows(1)("时间")
                ElseIf item2("卷曲模式")= "ss" Then
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/30 19:30:00 [只看该作者]

查找到 e.DataRow 的行数，就行。

 

Dim wz As Integer = Tables("订单").FindRow(e.DataRow)
 回到顶部
帅哥哟，离线，有人找我吗？
lur320
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：983 积分：8628 威望：0 精华：0 注册：2015/8/12 16:28:00 		  发帖心情 Post By：2016/6/30 19:33:00 [只看该作者]

thanks

 回到顶部
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 次数据查询