老师，我在多文件列中增加附件时，出现这个错误。不知道什么原因以下是beforeAttachfile中的事件代码：
Dim dr As DataRow= e.DataRow.GetParentRow("数码印花订单")
If dr.IsNull("客户简称") Or dr.IsNull("下单日期") Then
MessageBox.show("数码印花订单的款号或者下单日期不能为空,请先输入内容","提示")
e.Cancel=True
ElseIf e.DataRow.IsNull("花型名称") Then
MessageBox.show("数码印花明细的花型名称不能为空,请先输入内容","提示")
e.Cancel=True
Else
Select Case e.DataCol.name
Case "原始稿件"
e.SubFolder=dr("客户简称") & "\" & dr("下单日期") & "\" & e.DataRow("花型名称") & "\原始稿件"
Case "印花图稿"
e.SubFolder=dr("客户简称") & "\" & dr("下单日期") & "\" & e.DataRow("花型名称") & "\印花图稿"
此主题相关图片如下：55.png
End Select
End If
加好友 
发短信
Post By：2015/3/21 15:41:00 [显示全部帖子]
