在CurrentChanged中添加代码，

Dim Filter As String
Dim drs1 As List (of DataRow)
Dim dr11 As DataRow
Dim dr12 As DataRow
Dim dr As DataRow
MessageBox.Show("aa")
If e.Table.Cols(0).Name <> "第一列" Then
    dr = DataTables("物料信息表").Find("物料规格 =  \'" & e.Table.Current("原材料规格") & "\'")
    If dr("物料类型") = "零部件ASS-Y" Then
        Dim dtb As New DataTableBuilder("组成临时表")
        dtb.AddDef("ERP编码", Gettype(String), 32)
        dtb.AddDef("原材料规格", Gettype(String), 100)
        dtb.AddDef("所属物料", Gettype(String), 100)
        dtb.AddDef("单机数量", Gettype(Integer))
        dtb.AddDef("单位", Gettype(String), 50)
        dtb.AddDef("位号", Gettype(String), 50)
        dtb.AddDef("仓库", Gettype(String), 50)
        dtb.AddDef("损耗", Gettype(String), 50)
        dtb.Build()
        drs1 = DataTables("BOM组成表").Select("[所属物料编号] = \'"& dr("ERP编码") &"\'")
        For Each dr1 As DataRow In drs1
            dr11= DataTables("组成临时表").AddNew()
            dr12 = DataTables("物料信息表").Find("[ERP编码] = \'"& dr1("原材料规格编号") &"\'")
            dr11("ERP编码") = dr("ERP编码")
            dr11("原材料规格") = dr12("物料规格")
            dr11("所属物料") = dr("物料规格")
            dr11("单机数量") = dr1("单机数量")
            dr11("位号") = dr1("位号")
            dr11("仓库") = dr12("仓库")
            dr11("损耗") = dr1("损耗")
        Next
        Tables("主窗口_原材料详细信息").DataSource = DataTables("组成临时表")
        Tables("主窗口_原材料详细信息").AllowEdit = False
    Else
        Filter = "物料规格 =  \'" & e.Table.Current("原材料规格") & "\'"
        Tables("主窗口_原材料详细信息").DataSource = DataTables("物料信息表")
        Tables("主窗口_原材料详细信息").Filter = Filter
        Tables("主窗口_原材料详细信息").AllowEdit = False
    End If
End If

只能执行一次，后来打印输出aa就没反应了，怎么回事