主题：怎样做这个表达式

你还是认真看看帮助文件吧,随便一个文件,字段类型也不正确

重置列忘记保存了,重置色号列即可更新数据,

If e.DataCol.Name = "色号" Then

    Dim dr,dr1 As DataRow

    dr = e.DataRow

    If e.NewValue = Nothing  Then

        dr("报价单价") = Nothing

        dr("报价颜色") = Nothing

    Else

        dr1= DataTables("报价").Find("色号 ='" &  dr("色号")  & "'")

        If dr1 IsNot Nothing Then

            dr("报价单价") = dr1("单价")

            dr("报价颜色") = dr1("颜色")

        End If

    End If

End If

也可用关联表引用父表数据,参考使用指南---关联表