td编程控制

海林

Function Requirements_Req_FieldCanChange(FieldName, NewValue)
  On Error Resume Next
   dim fl
    fl=Req_Fields.Field("RQ_USER_08").Value
if( FieldName="RQ_USER_08" and Req_Fields.Field("RQ_USER_07").Value ="BUG")then
     NewValue=fl
     Req_Fields.Field("RQ_USER_08").Value=NewValue
     msgbox NewValue
     return NewValue
   end if
  Requirements_Req_FieldCanChange = Project_DefaultRes
  On Error GoTo 0
End Function

我的想法是：当RQ_USER_07的值=BUG时，RQ_USER_08字段的值不允许修改，以上代码是借助中间变量把原来的值重新付回去，    msgbox NewValue
显示是正确的,但是每次都把RQ_USER_08的值修改了，请教请教，求解决办法？？？

志在远方

不太懂

海林

即使去掉Req_Fields.Field("RQ_USER_08").Value，修改成Req_Fields.Field("RQ_USER_08").IsModified=FALSE,仍然修改了值，请问原因及解决办法？谢谢

mick

Req_Fields.Field("RQ_USER_08").Value=NewValue
你是把NewValue赋值给Req_Fields.Field("RQ_USER_08").Value了，所以修改了RQ_USER_08的属性了。