[求助]大神帮忙看下哪里错了! Post By:2013/4/12 22:17:00 [只看该作者]
Select Case e.DataCol.Name Case "品名" If e.NewValue Is Nothing Then
e.DataRow("单价") = Nothing Else Dim dr As DataRow dr = DataTables("产品").Find("[品名] = '" & e.NewValue & "'") If dr IsNot Nothing Then If e.DataRow("单价").IsNumeric AndAlso e.DataRow("单价") < 0 Then e.DataRow("单价") = dr("单价") End If End If End If