--
If e.DataCol.Name = "编号" OrElse e.DataCol.Name = "调标时间" Then
If e.DataRow.IsNull("编号") OrElse e.DataRow.IsNull("调标时间") Then
e.DataRow("单位序号") = Nothing
Else
Dim bh As String
bh=e.DataRow("调标时间").year
Dim bh1 As String
bh1=e.DataRow("编号")
e.DataRow("单位序号")= bh & bh1
End If
End If