主题：如何在表A新增行时自动引用表B 的数据

DataRowAdded事件

For Each dr As DataRow In DataTables("表B").Select("物品种类 is not null")
    Dim name As String = "物品种类_" & dr("物品种类")
    If e.DataTable.DataCols.Contains(name) Then
        e.DataRow(name) = dr("单价")
    End If
Next