主题：自动更新对应公司货号、报价记录

1.首先把报价表的公司货号字段类型改为字符型；

2.第一个问题，在报价表的表属性datacolchanged中设置代码：
If e.DataCol.name = "客户货号" Then
Dim dr As DataRow = DataTables("货号").find("客户货号 = '"& e.DataRow("客户货号") &"'")
    If dr IsNot Nothing Then
        e.DataRow("公司货号") = dr("公司货号")
    End If
Next

3.第二个问题，抱歉，不是很理解。