请教
If e.Col.Name = "处置_代用" AndAlso e.Row(e.Col.Name) = True Then
Dim cr As Row = e.Row
Dim nr As Row = e.Table.addnew
nr("进料表编号") = cr("进料表编号")
nr("机组") = cr("机组")
nr("规格") = cr("处置_代用_规格")
nr("材质") = cr("处置_代用_材质")
nr("长度m") = cr("处置_代用_长度m")
nr.move(cr.index+1)
End If
"处置_代用" 列手动勾选后,按以上代码自动生成行是没有问题的,但由以下代码自动勾选"处置_代用"列后,就无法自动生成了,要怎么改代码?
Dim dr4 As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "处置_代用_数量"
If dr4.IsNull("处置_代用_数量") Then
dr4("处置_代用") = Nothing
Else
dr4("处置_代用") = True
End If
End Select