Dim nms() As String = {"供应商","单店简称","成本中心代码","区域名称","付款金额","付款摘要","房租金额","房租税金","物业金额","银行账号","开户行","流程类型","流程编号","合同编号","合同金额","fa piao","备注"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text '供应商
Dim bh1 As String = sheet(n,9).Text '银行账号
Dim bh2 As String = sheet(n,10).Text '开户行
Dim bh3 As String = sheet(n,2).Text '成本中心代码
Dim bh4 As String = sheet(n,1).Text '单店简称
If bh IsNot Nothing Then
If DataTables("供应商管理").Find("供应商名称 = '" & bh & "'") Is Nothing Then
MessageBox.Show("供应商为 :" & bh & " 因为没有相对应的供应商,数据不能导入,请核查","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return Nothing
End If
End If
判断了一条空数据
加好友 
发短信
Post By：2015/9/7 11:12:00 [显示全部帖子]
