| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 表A的数据导入到表B中出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188684) |
| -- 作者：ZJZK2018 -- 发布时间：2023/10/11 11:18:00 -- 表A的数据导入到表B中出错 把表A的数据导入到表B中时，由于某一行某个数据问题出错了，不能进行下一条数据。 需求： 出错行时，在该行的备注单元格中“出错”，代码继续执行下一条数据，这样的情况如何处理？？
|
| -- 作者：有点蓝 -- 发布时间：2023/10/11 11:40:00 -- 怎么导的？出现什么错误？ |
| -- 作者：ZJZK2018 -- 发布时间：2023/10/20 8:27:00 -- 下面这段代码，每点击一次，生成的内容累加一次，我只需要生成的新内容替换旧内容，如何调整？ \'\'\'\'-------------------从已下载下来招标公告获取"招标条件","资格条件"---------------------------- For Each r As Row In Tables("招标公告").Rows If r("招标公告") IsNot Nothing Then Dim nms() As String = r("招标公告").Split(vbCrlf) Dim lst As New List(Of Integer) For i As Integer = 0 To nms.Count -1 If nms(i) IsNot Nothing AndAlso nms(i).Trim() > "" Then \'nms(i).Trim() > "" 这个是清除空行 If nms(i).Contains("投标人资格要求") Or nms(i).Contains("投标人资格条件") Or nms(i).Contains("投标资格条件") Or nms(i).Contains("投标人的资格要求") Or nms(i).Contains("投标人资质条件与要求") Then If i > 0 Then lst.Add(i) For n As Integer = 0 To i - 1 r("招标条件") &= nms(n).Trim() & vbCrLf Next Exit For End If End If End If Next End If Next |
| -- 作者：有点蓝 -- 发布时间：2023/10/20 8:40:00 -- r("招标条件") &= nms(n).Trim() & vbCrLf 改为 r("招标条件") = nms(n).Trim() & vbCrLf
|