控件背景色和文字颜色要另外处理:
http://www.foxtable.com/webhelp/topics/0720.htm、
http://www.foxtable.com/webhelp/topics/0721.htm
大概比如
表格currentchanged事件
dim r as row = e.table.current
if r isnot nothing then
if forms("xx窗口").opened then
If r("类型") = "扣" Then
forms("xx窗口").controls(“textbox”).ForeColor = color.red
ElseIf r("类型) = "退" Then
forms("xx窗口").controls(“textbox”).ForeColor = color.blue
ElseIf r("类型") = "废" Then
……
End If
end if
end if