表的DataColChanged

If e.DataCol.Name = "编码" Then
    Dim nms() As String = {"款号","名称","颜色","尺码","大类","年份","季节","品牌","零售价"}  根据导入的编码找对应的款号，名称等
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("货号信息").Find("[编码] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

Dim f As New  Filler
 f.SourceTable = DataTables("库调明细表_主表") \'指定数据来源
f.SourceCols = "单据日期,门店,业务单号,数量,备注,款号,名称,颜色,尺码,收发类型,品牌,编码,年份,季节"  \'指定数据来源列
f.DataTable = DataTables("出入库明细") \'指定数据接收表
f.DataCols = "单据日期,门店,业务单号,数量,备注,款号,名称,颜色,尺码,收发类型,品牌,年份,季节"  \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据

 看DataRowAdded和出入库明细表的datacolchanged和DataRowAdded，看写了些什么。

这2个我也看了，没啥东西，要不帮忙我看下，目的就是通过系统出入库窗口导入按钮导入数据就可以，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

再检查了一下，设这段代码写错了，你写少了一个

Dim f As New  Filler
f.SourceTable = DataTables("库调明细表_主表") \'指定数据来源
f.SourceCols = "单据日期,门店,业务单号,数量,备注,款号,名称,颜色,尺码,收发类型,品牌,编码,年份,季节"  \'指定数据来源列
f.DataTable = DataTables("出入库明细") \'指定数据接收表
f.DataCols = "单据日期,门店,业务单号,数量,备注,款号,名称,颜色,尺码,收发类型,品牌,编码,年份,季节"  \'指定数据接收列
f.ExcludeExistValue = True
f.Fill() \'填充数据