If e.DataCol.name="文件前缀" OrElse e.DataCol.name="年号" Then Dim dr As DataRow=e.DataRow If dr.Isnull("文号前缀") OrElse dr.IsNull("年号") Then MessageBox.Show("文号前缀和文件年号不能为空值!", "提示") e.Cancel = True
Else Dim qz As String = e.DataRow("文号前缀") MessageBox.show(qz) Dim nh As String = e.DataRow("年号") Dim xh As String = e.DataRow("文件序号") e.DataRow("文号") = qz & "【" & nh & "】" & xh & "号" End If End If