以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求指导  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140275)
--  作者：ygg8310
--  发布时间：2019/9/2 16:47:00
--  求指导
 For n As Integer = 1 To Sheet.Rows.Count -1 
Dim bh0 As String = sheet(n,0).Text 
Dim bh1 As String = sheet(n,1).Text
Dim bn2 As String = sheet(n,2).Text
Dim bn3 As String = sheet(n,3).Text

    If DataTables("表A").Find("第一列 = \'" & bh0 & "\' And 第二列 = \'" & bh1 & "\' And 第三列 = \'" & bh2 & "\' And 第四列 = \'" & bh3 & "\'") Is Nothing Then  \'如果不存在同编号的订单


     Dim r As  Row = Tables("表A").AddNew()


到底是哪个地方出错了？？？
--  作者：有点蓝
--  发布时间：2019/9/2 16:54:00
--  
看不出什么问题。提示什么错误？