主题：[求助]

Dim f As New  Filler
f.SourceTable = DataTables("物料表") '指定数据来源
f.SourceCols = "产品,客户"  '指定数据来源列

f.Filter = Tables("物料表").Filter

f.DataTable = DataTables("圆片陶瓷电容_独石电容") '指定数据接收表
f.DataCols = "产品,客户"  '指定数据接收列
f.Fill() '填充数据

此主题相关图片如下：截图4.png

老师  还是出来很多啊  我想只要一行或者说在模糊查询里我双击的那行的数据进行填充  该怎么写

Dim sCols() As String = {"第一列", "第二列", "第三列"}
Dim dCols() As String = {"第一列", "第二列", "第三列"}

Dim nr As DataRow = DataTables("表B").AddNew()
For i As Integer =0 To sCols.Length -1
    nr(dCols(i)) = Tables("表A").Current(sCols(i))
Next

老师，这样写还是不能行。

 

Dim f As New  Filler
Dim sCols() As String = {"规格型号","默认工艺路线_FInterID","默认工艺路线_FRoutingName"}
Dim dCols() As String = {"ggxh","mrgylx_id","mrgylx_mc"}
Dim nr As DataRow = DataTables("圆片陶瓷电容_独石电容料号表").AddNew()
For i As Integer =0 To sCols.Length -1
    nr(dCols(i)) = Tables("物料表").Current(sCols(i))
Next
f.SourceTable = DataTables("物料表") '指定数据来源
f.SourceCols = "规格型号,默认工艺路线_FInterID,默认工艺路线_FRoutingName"  '指定数据来源列
f.Filter = Tables("物料表").Filter
f.DataTable = DataTables("圆片陶瓷电容_独石电容料号表") '指定数据接收表
f.DataCols = "ggxh,mrgylx_id,mrgylx_mc"  '指定数据接收列
f.Fill() '填充数据

 

 直接写

 

Dim sCols() As String = {"规格型号","默认工艺路线_FInterID","默认工艺路线_FRoutingName"}
Dim dCols() As String = {"ggxh","mrgylx_id","mrgylx_mc"}
Dim nr As DataRow = DataTables("圆片陶瓷电容_独石电容料号表").AddNew()
For i As Integer =0 To sCols.Length -1
    nr(dCols(i)) = Tables("物料表").Current(sCols(i))
Next

此主题相关图片如下：截图1.png

老师  如图  我在模糊查询选择了规格型号后  填充的并不是我选的那一行的结果  而且填充的位置也不在我选择规格型号的那一行  多次尝试后我发现填充的数据是物料表里光标所停的位置   请问老师如何才能达到我要的效果

 那就是你的表名有问题

 

Dim sCols() As String = {"规格型号","默认工艺路线_FInterID","默认工艺路线_FRoutingName"}
Dim dCols() As String = {"ggxh","mrgylx_id","mrgylx_mc"}
Dim nr As Row = Tables("圆片陶瓷电容_独石电容料号表").Current
For i As Integer =0 To sCols.Length -1
    nr(dCols(i)) = Tables("物料表").Current(sCols(i))
Next

好的，测试OK了，感谢！

 

但是有这个报错：

 

Like 运算符中出错: 字符串模式“%CT1-50V-08c-2B-562K 5c*4.5%”无效。

 

 

看过了，全部是带有*号的，均会出现以上报错。

* 要替换一下.替换为 [*]

老师，您好。

1.楼上的句子是针对所有的带有 * 号的吗？   ----我们需要是针对所有带*号的；

2.上面的句子会替换原表中的数据吗？   ----我们不希望替换原表中的数据。

 

以上求请教。

 

 

我们之前有做了模糊查询：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("料号筛选_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "规格型号 Like " & txt & " Or 代码 Like " & txt
End If

 

 

这个模糊查询中出现的此类问题。