IF THIS.GetChild( String(dwo.Name), dwc_1 ) > 0 THEN
ll_Row = dwc_1.Find(String(dwo.Name) +" like '"+ Data+ "'",1,dwc_1.RowCount())
IF ll_Row > 0 THEN
messagebox("","")
ELSE
RETURN 1
END IF
END IF
在数据窗口的Itemchanged事件中写:
DataWindowChild dwc_1
Long ll_Row
if dwo.name = "po_customer" then
IF THIS.GetChild( String(dwo.Name), dwc_1 ) > 0 THEN
ll_Row = dwc_1.Find(String(dwo.Name) +" ='"+ Data+ "'",1,dwc_1.RowCount())
IF ll_Row > 0 THEN
messagebox("","")
ELSE
return 1
END IF
END IF
end if
大致这样写 还未验证
IF THIS.GetChild( String(dwo.Name), dwc_1 ) > 0 THEN
ll_Row = dwc_1.Find(String(dwo.Name) +" like '"+ Data+ "'",1,dwc_1.RowCount())
IF ll_Row > 0 THEN
messagebox("","")
END IF
END IF