以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  e参数的上面一行和下面一行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87016)
--  作者：lur320
--  发布时间：2016/6/30 19:28:00
--  e参数的上面一行和下面一行
在不考虑sorting的情况下。就是datatables和tables一样内容的情况下。
在 datacolchanged里面写什么代码可以实现输入的单元格的下面一行和上面一行？
以为我的计算是与紧挨着的两行进行计算的。
--  作者：lur320
--  发布时间：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
--  作者：大红袍
--  发布时间：2016/6/30 19:30:00
--  

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

 

Dim wz As Integer = Tables("订单").FindRow(e.DataRow)
--  作者：lur320
--  发布时间：2016/6/30 19:33:00
--  
thanks