With Tables("返单上游")
If .Current IsNot Nothing Then
If .Current.IsNull("上游客户") OrElse .Current.IsNull("品牌") Then
MessageBox.Show("【上游客户】【品牌】不能为空,请填写完整后再添加返单明细!")
Else
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count - 1
If sheet(n, 1).text <> .Current ("上游客户") Then
MessageBox.Show("表内部分行上游客户名称不符，重新维护后再行导入！")
sheet(n, 0).Value = "客户名称不符"
End If
Next
End If
End If
End If
End With
老师，这段代码运行时没有问题，但就是在条件不符时，EXCEL对应的单元格上怎么没有出现文字对应的文字呢？
加好友 
发短信
Post By：2023/4/1 8:52:00 [只看该作者]
