| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这段代码有啥问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74250) |
| -- 作者：blackzhu -- 发布时间：2015/9/7 11:12:00 -- 这段代码有啥问题 Dim nms() As String = {"供应商","单店简称","成本中心代码","区域名称","付款金额","付款摘要","房租金额","房租税金","物业金额","银行账号","开户行","流程类型","流程编号","合同编号","合同金额","发票","备注"} 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 判断了一条空数据
|
| -- 作者：大红袍 -- 发布时间：2015/9/7 11:17:00 -- 是不是有空格？把空格移除
Dim bh As String = sheet(n,0).Text.Trim |
| -- 作者：blackzhu -- 发布时间：2015/9/7 11:40:00 -- 我试试 |
| -- 作者：blackzhu -- 发布时间：2015/9/7 11:42:00 -- 导入的原始表 只有一条数据 导入后 提示了一条空的供应商.加了tirm 也是一样 |
| -- 作者：大红袍 -- 发布时间：2015/9/7 11:50:00 -- 代码没有问题，你想问什么啊？
你msgbox看一下bh的值是什么？ |