主题：求一段代码

 这些产品编号可能有特殊的符号，要处理下，贴出这些编号看看。

LS-2206/2和LS-2206/3两种

 呃，不可能出现问题，测试没有报错啊

我这里连续做几次就会出现问题，不过我现在把所有的数据全部删除了，重新做之后就没有这种现象了，谢谢耐心指教了，非常感谢

请问老师，我撤销了“定单明细表”作为关联的父表，那么我的采购计划里的内容就没有地方来了，请问可以重新做个名“采购计划”表，打开采购计划按钮后，可以自动复制“定单明细表”里的所有内容到“采购计划表”吗，用来当做采购计划里的父表，代码怎样写，诚心请教老师。

我解决了以上问题了，谢谢关注

Dim f As New Filler
f.SourceTable = DataTables("定单明细") '指定数据来源
f.SourceCols = "定单号,物料编号,物料名称,规格型号,用料系数" '指定数据来源列
f.DataTable = DataTables("采购计划") '指定数据接收表
f.DataCols = "定单号,物料编号,物料名称,规格型号,用料系数" '指定数据接收列
f.Fill() '填充数据

 

老师们，我用以上方法是解决了复制问题，可是我没按一次按钮，就重新复制一次，能不能帮我改个每按一次就只复制或更新最新的内容啊，不要一直复制导致重复

编码填充,自由控制 http://www.foxtable.com/help/topics/1533.htm

Dim Vals As List(of String())
Vals = DataTables("定单明细").GetValues("定单号|物料编号")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("采购计划").AddNew()
    dr("定单号") = Vals(i)(0)
    dr("物料编号") = Vals(i)(1)
Next

 

按下按钮后不是更新，还是重复填充啊，比如第一次按下是50行，第二次按下就变成100行..........重复相同的行复制，我希望的是每次按下只是更新而不是重复，请老师指教

Dim Vals As List(of String())
Vals = DataTables("定单明细").GetValues("定单号|物料编号")
For i As Integer = 0 To Vals.Count - 1
    Dim fdr As DataRow = DataTables("采购计划").Find("定单号 = '" & Vals(i)(0) & "' and 物料编号 = '" & Vals(i)(1) & "'")
    If fdr Is Nothing Then
        fdr = DataTables("采购计划").AddNew()
        fdr("定单号") = Vals(i)(0)
        fdr("物料编号") = Vals(i)(1)
    End If
Next