主题：[求助]

此主题相关图片如下：qq截图20131216104320.png

If e.DataRow.IsNull("合同编号")=False AndAlso e.DataRow.IsNull("资料名称")=False Then

    Dim htbh As String=e.DataRow("合同编号")

    Dim zlmc As String=e.DataRow("资料名称")

    Select Case e.DataCol.name

        Case "合同编号"

            htbh =  IIF(e.OldValue="",e.DataRow("合同编号"),e.OldValue)

        Case "资料名称"

            zlmc =   IIF(e.OldValue="",e.DataRow("资料名称"),e.OldValue)

    End Select

    Dim dr As DataRow=DataTables("进度款支付").Find("合同编号='" & htbh & "' And 付款项目='" & zlmc & "'")

    If dr Is Nothing Then

        dr = DataTables("进度款支付").AddNew

        dr("合同编号")=e.DataRow("合同编号")

        dr("付款项目")=e.DataRow("资料名称")

    Else

        dr("合同编号")=e.DataRow("合同编号")

        dr("付款项目")=e.DataRow("资料名称")

    End If

End If