-- 作者:ouyangfenghuan
-- 发布时间:2017/2/9 18:08:00
-- [求助] 字符中带符号查找不到?请指教
型号列中字符内容带符号* 和- 就出错,代码如下
If dr("用料规格") IsNot Nothing Then \'通过用料规格自动提取CLGG材料规格表中型号列的相同内容行的材质列内容
Dim Filter4 As String
Filter4 = "[型号] = \'" & dr("用料规格") & "\'" MessageBox.Show(filter4) If DataTables("CLGG").Find(Filter4) Is Nothing Then \'如果对应的有加载过 DataTables("CLGG").AppendLoad(Filter4) \'则追载明细 End If MessageBox.Show(2) Dim dr2 As DataRow dr2 = DataTables("产品资料表").Find(Filter4) If dr2 IsNot Nothing Then dr("材料类型") = dr2("材质") End If End If
此主题相关图片如下:1.png
此主题相关图片如下:2.png
此主题相关图片如下:3.png
此主题相关图片如下:4.png
[此贴子已经被作者于2017/2/9 18:15:36编辑过]
|