参考:http://www.foxtable.com/webhelp/scr/1451.htm
表B,datacolchanged事件
If e.DataCol.Name = "投料卷号" Then
If e.NewValue Is Nothing Then
e.DataRow("投料厚度") = Nothing
e.DataRow("投料宽度") = Nothing
Else
Dim dr As DataRow
dr = DataTables("表A").Find("[投料卷号] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
e.DataRow("投料厚度") = dr("厚度")
e.DataRow("投料宽度") = dr("宽度")
End If
End If
End If