If Tables("表A").Current.IsNull("user") Then
MessageBox.Show("客户名不允许为空!")
End If
这段代码后面本来还有别的代码的，如果上面的的条件 成立就不执行后面的代码。 应该怎么处理？
我是按照下面的方法处理的，不管用， 请前辈们继续帮忙啊~~~
If Tables("chuandanhao.chuanhuo").Current.IsNull("user") Then
MessageBox.Show("客户名不允许为空!")
e.Cancel = True
DataTables("chuanhuo").DeleteFor("cord is null")
Dim Book As New XLS.Book(ProjectPath & "Attachments\串货.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\串货.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'Sheet(3,9).Value = "<日期 = # " & Date.Today & "#>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
End If
加好友 
发短信
Post By：2015/8/13 15:13:00 [只看该作者]
