'''''''''
If e.DataCol.Name = "锁定" Then
Dim tt1 As Table = Tables("表A") 'Tables行筛选第二列值会变化,求助第二列值不变(根据datatable行生成)
For i As Integer = 1 To tt1.Rows.Count - 1
If e.DataRow.IsNull("第一列") = False Then
tt1.Rows(i)("第二列") = tt1.Rows(i-1)("第一列")
Else
tt1.Rows(i)("第二列") = Nothing
End If
End If
Next
End If
此主题相关图片如下:第二列当前行等于第一列上一行的值.png

上图举例,3个红色勾选行后,第二列值变化了不对,求助第二列值不变(根据datatable行生成)
[此贴子已经被作者于2023/2/2 17:01:09编辑过]