Select Case e.DataCol.Name
Case "实际_结束日期", "实际_开始日期", "批准"
Dim dr As DataRow = e.DataRow
Dim s1() As String = {"三维", "程序"}
Dim pr As Integer
If dr.isnull("实际_结束日期") = False AndAlso dr.isnull("实际_开始日期") = False AndAlso dr("批准") = True AndAlso e.DataRow("任务类型") = " s1()" Then
pr = Tables("项目开发进度表").FindRow( "详细任务或工序号= '" & dr("详细任务或工序号") & "' ")
If pr > - 1 Then
Dim r As Row
If Tables("项目开发进度表").rows.count = pr + 1 Then
r = Tables("项目开发进度表").addnew
Else
Tables("项目开发进度表").position = pr + 1
r = Tables("项目开发进度表").InsertNew()
End If
r("详细任务或工序号") = dr("详细任务或工序号") + "实际"
r("计划_开始日期") = dr("实际_开始日期")
r("计划_结束日期") = dr("实际_结束日期")
End If
End If
End Select
我想增加一个判断 就是只有该列内容等于三维或者是检具 才能在另一个表增加