以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  奇怪事请教？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59046)

--  作者：hbhb --  发布时间：2014/10/28 23:00:00 --  奇怪事请教？ 甜大师：好！请教一下怪事。实在是搞不懂？ 为何一张excel表导入后，运行下面的代码，显示出错，当打开excel表拉一下列保存一下，再重新运行就不出问题。为何？？？？？ Dim shzs1() As String shzs1 = new String()  {"本月"} Dim rs3 As DataRow Dim zbl As  Integer For Each shz1 As String In shzs1     For Each cl1 As DataCol In rgs.dataCols         rs3 = rgs.find(cl1.name & " Like \'" & shz1 & "*\'")         If rs3 IsNot Nothing Then             zbl = zbl +1                      Else                          Continue For         End If     Next     If  zbl = 1  Then         Exit For     Else         MessageBox.Show("请将本月数进行修改!")         Return Nothing     End If      Next

--  作者：有点甜 --  发布时间：2014/10/28 23:06:00 --    报什么错？

--  作者：hbhb --  发布时间：2014/10/28 23:16:00 --   如下：

--  作者：hbhb --  发布时间：2014/10/28 23:17:00 --   如图： 此主题相关图片如下：qq截图20141028232755.png

--  作者：Bin --  发布时间：2014/10/29 8:03:00 --   上个例子看看,没道理.

--  作者：有点甜 --  发布时间：2014/10/29 9:06:00 --    做例子发上来，报错和你代码无关。