表A有所有客户的具体数据 表B是库存表 表ADataColChanged事件写入 Select
Case
e.DataCol.Name
Case
"客户名"
Dim Filter
As
String = "[设备ID] = '" & e.DataRow("
设备ID ") & "'" Dim drs As
List(Of DataRow) =
DataTables("表B").Select(Filter)
For
Each dr As
DataRow
In drs
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name) Next End
Select