If e.DataCol.Name = "合约" Then
Dim K As String = e.DataRow("合约")
Select Case K
Case "全额同意"
e.DataRow("cbb") = e.DataRow("实际申请金额")
Case "修改后同意"
e.DataRow("cbb") = Nothing
Case Else
e.DataRow("cbb") = "0"
End Select
ElseIf e.DataCol.Name = "财务1" Then
Dim K As String = e.DataRow("财务1")
Select Case K
Case "全额同意"
e.DataRow("财务2") = e.DataRow("CBB")
Case "修改后同意"
e.DataRow("财务2") = Nothing
Case Else
e.DataRow("财务2") = "0"
End Select
ElseIf e.DataCol.Name = "子公司1" Then
Dim L As String = e.Row("付款单位")
Select Case e.Row("付款单位")
Case "高科开发建设","高科置业发展","贵州望城投资"
Dim K As String = e.DataRow("子公司1")
Select Case K
Case "全额同意"
e.DataRow("子公司2") = e.DataRow("财务2")
Case "修改后同意"
e.DataRow("子公司2") = Nothing
Case Else
e.DataRow("子公司2") = "0"
End Select
Case "高科控股集团"
Dim K As String = e.DataRow("子公司1")
Select Case K
Case "全额同意"
e.DataRow("子公司2") = e.DataRow("CBB")
Case "修改后同意"
e.DataRow("子公司2") = Nothing
Case Else
e.DataRow("子公司2") = "0"
End Select
End Select
ElseIf e.DataCol.Name = "总工办" Then
Dim K As String = e.DataRow("总工办")
Select Case K
Case "全额同意"
e.DataRow("JTZGB1") = e.DataRow("财务2")
Case "修改后同意"
e.DataRow("JTZGB1") = Nothing
Case Else
e.DataRow("JTZGB1") = "0"
End Select