主题：查找

老师帮我看一下  r 输出是正确的     “F8” 没有赋值为什么

Dim  r As String
Dim Names(3) As String  '定义一个字符组
Dim  Multi As String = Tables("产品").Current("本厂型号")    '需要解析的字段
Dim Values() As String                                      '定义一个字符组存储解析后的文字
Dim c() As Char = {","," "}            
Values = Multi.split(c)
Dim dr  As  DataRow
    
dr =  DataTables("解析资料").Find("[位置] = '" & Values(1) &  "'")
If dr IsNot Nothing Then  '如果找到了同名的产品行,也就是dr不是Nothing
    Names(0) = dr("分解一")
Else
Names(0) = "未找到字段"
End  If

Dim dr1  As  DataRow
dr1 =  DataTables("解析资料").Find("[颜色] = '" & Values(2) &  "'")
If dr1 IsNot Nothing Then  '如果找到了同名的产品行,也就是dr不是Nothing
    Names(1) = dr1("分解二")
Else
Names(1) = "未找到字段"
End  If
Dim dr2  As  DataRow
dr2 =  DataTables("解析资料").Find("[印刷要求] = '" & Values(3) &  "'")
If dr2 IsNot Nothing Then  '如果找到了同名的产品行,也就是dr不是Nothing
    Names(2) = dr2("分解三")
Else
Names(2) = "未找到字段"
End  If
Dim dr3  As  DataRow
dr3 =  DataTables("解析资料").Find("[附件] = '" & Values(4) &  "'")
If dr3 IsNot Nothing Then  '如果找到了同名的产品行,也就是dr不是Nothing
    Names(3) = dr3("分解四")
Else
Names(3) = "未找到字段"
End  If
Dim  re As String = Tables("产品").Current("F8") = r
r =  Names(0) &  Names(1) & Names(2) & Names(3)
Output.Show(re)

不理解你的意图是什么赋值这样写

Tables("产品").Current("F8") = r

最后的值填入当前行的  列名为F8的单元格里  这是一段代号解读代码  用于解读本厂型号中的  代号

 直接赋值肯定可以啊

Tables("产品").Current("F8") = r

应该是可以的嘛

不知道为什么  就是不行

列类型也没错

命令窗口输出r  是正确的  就是赋值没反应  也没报错

 是不是你表名写错了啊，你的可能是窗口表

Tables("产品").Current("F8") = "123456"

单独的都没问题

r  输出正确

   F8赋值也没问题

是不是数据类型哪里搞错了

呃，汗

r =  Names(0) &  Names(1) & Names(2) & Names(3)
Tables("产品").Current("F8") = r
Output.Show(r)