[求助]第二列首行填充问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

甜老师，为什么执行代码后不是从首行填充的？

此主题相关图片如下：无标题.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建 winrar 压缩文件2.rar

如何让第二列、第三列等都从首行填充？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:例2.rar

Dim Cols1() As String = {"产品"}
Dim Cols2() As String = {"产品名称"}
Dim count As Integer = DataTables("表A").Compute("count(_Identify)", "产品名称 is null")
Dim drs1 As List(Of DataRow) = DataTables("表B").Select("")
If drs1.Count > count Then
DataTables("表A").AddNew(drs1.Count - count)
End If

Dim drs2 As List(Of DataRow) = DataTables("表A").Select("产品名称 is null")
For i As Integer = 0 To drs1.Count - 1
    Dim dr1 As DataRow = drs1(i)
    Dim dr2 As DataRow = drs2(i)
    For j As Integer = 0 To Cols1.Length -1
        dr2(Cols2(j)) = dr1(Cols1(j))
    Next
Next

Dim Cols3() As String = {"规格"}
Dim Cols4() As String = {"规格型号"}
count = DataTables("表A").Compute("count(_Identify)", "规格型号 is null")
drs1 = DataTables("表C").Select("")
If drs1.Count > count Then
    DataTables("表A").AddNew(drs1.Count - count)
End If
drs2 = DataTables("表A").Select("规格型号 is null")
For i As Integer = 0 To drs1.Count - 1
    Dim dr1 As DataRow = drs1(i)
    Dim dr2 As DataRow = drs2(i)
    For j As Integer = 0 To Cols1.Length -1
        dr2(Cols4(j)) = dr1(Cols3(j))
    Next
Next

BIN老师没有变化啊，执行后效果还是那样，代码还是也没变，还是原来的

呵呵,不可能的. 你是不是用的老版本 CatCH目录删叼

Dim h As New Filler

h.SourceTable = DataTables("表B") '指定数据来源

h.SourceCols = "产品" '指定数据来源列

h.DataTable = DataTables("表A") '指定数据接收表

h.DataCols = "产品名称" '指定数据接收列

h.Distinct = False

h.Fill() '填充数据

Dim c As Integer

Dim drlist As List(of DataRow) = DataTables("表A").Select("规格型号 is null")

For Each dr As DataRow In DataTables("表C").DataRows

Dim drr As DataRow

If c < drlist.count Then

drr=drlist(c)

c+=1

Else

drr=DataTables("表A").AddNew

End If

drr("规格型号")=dr("规格")

直接复制代码带按钮里面

我没找到写在按钮里的代码有什么变化，谢谢二位老师指点。

主题：[求助]第二列首行填充问题