Dim dr As DataRow = e.DataRow
If dr.IsNull("县区") Or Dr.IsNull("单位名称") Or dr.IsNull("生成日期") Or dr.IsNull("姓名") Then
MessageBox.Show("不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
If e.DataCol.Name = "备案表" Then
e.SubFolder = e.DataCol.name & "\" & dr("县区") & "\" & dr("单位名称")
e.FileName = dr("单位名称") & "_" & dr("生成日期") & "_" & (e.DataRow.Lines("备案表").Count + 1) & ".jpg"
ElseIf e.DataCol.Name = "登记表" Then
e.SubFolder = e.DataCol.name & "\" & dr("县区") & "\" & dr("单位名称")
e.FileName = e.FileName = dr("单位名称") & "_" & dr("姓名") & "_" & dr("生成日期") & "_" & (e.DataRow.Lines("登记表").Count + 1) & ".jpg"
End If
End If
出现以下错误:如图:
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:截图03.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-6/20146188494420336.png)