以文本方式查看主题

-  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=62649)
--  作者：hbhb
--  发布时间：2015/1/5 20:21:00
--  求主治神经病的大师
大师：您好！一个神经病现象，老朽找了一周，都没有解决。
查找一字符“一、材料” 后取其他列的值，填入到另一张表的第一行，另一张表的第一行就是不显示其值，有时会显示，有时就不显示？其原因在哪儿？
--  作者：有点甜
--  发布时间：2015/1/5 20:25:00
--  

 例子。

 

 不显示说明没有触发代码赋值。
--  作者：hbhb
--  发布时间：2015/1/5 20:35:00
--  
一行一行都用msgbox测试过，全部获取了值，也赋值了，就是第一行不赋值，去掉“一、”，后就正确，究竟什么原因？
--  作者：hbhb
--  发布时间：2015/1/5 20:40:00
--  
dim zcqc2 as Integer = 2
dim zcqm2 as Integer = 4

Dim zclqch As Integer
For Each aw As String In zbyjhs
    With Tables("数据表")
   zclqch = .findrow(.Cols(zc2).name & " Like \'*" & aw & "\'")
    \'zclqch = Tables("数据表").Find(aw,0,zc2,False,False,True)
End With
    If zclqch > -1 Then
        
        Dim zcye As Double = val(Tables("数据表").Value(zclqch,zcqc2))
        
        
        Dim zmye As Double = val(Tables("数据表").Value(zclqch,zcqm2))
        
        
        Dim fdr As DataRow = DataTables("物料表").Find("项目 like \'*" & aw & "\'")
        If fdr IsNot Nothing Then
                        
            fdr("本期数") = zcye
            
            fdr("本年累计数") = zmye
            
        End If
    End If
    
    
    
Next
--  作者：有点甜
--  发布时间：2015/1/5 20:44:00
--  
 例子放上来，不知你想表达什么
--  作者：hbhb
--  发布时间：2015/1/5 20:53:00
--  
请问以上的代码有无错误？为何物料表的第一行数据就赋值不了，其他行都可以？第一行查找的字符为“一、原材料”，其他行也有类似的字符,如：“二、库存商品”，就能导入数据。
--  作者：有点甜
--  发布时间：2015/1/5 21:02:00
--  
 不知道你写的是什么。例子发上来。
--  作者：ysq128
--  发布时间：2015/1/5 21:24:00
--  
多半你那行有特殊换行或回车符号。