hur.cn - 华软网

 热门搜索

改变数据窗口中的数据颜色

  作者:未知    来源:网络    更新时间:2018/4/16
我希望在我的数据窗口中根据条件变化而对不同的数据改变backgroud.color
我的程序动态的条件,如何在程序里实现呢?
下面试我写的代码,可运行总是说出错.
"Line 1 Column 29: incorrect syntax."

ls_modstring = "patient_id.Color = '" + colorw &
          + "~tif(date(DISCHARGE_DATE_TIME) > " + string(relativedate(ld_sys, - gi_sysday)) + " , " + colorb &
                             + ", if((date(DISCHARGE_DATE_TIME) < " + string(relativedate(ld_sys ,- gi_sysday))& 
                             + " and date(DISCHARGE_DATE_TIME) > " & 
                             + string(relativedate(ld_sys, - gi_sysdate)) +" ) , " + colory + ", if(date(DISCHARGE_DATE_TIME) < " &
                             + string(relativedate(ld_sys, - gi_sysdate)) + "," + colorr + ")))'"

err = dw_parano.Modify(ls_modstring)
IF err <> "" then 
     messagebox("提示","改变颜色失败,位置是:"+err)
end if



下面是运行后的生成的语句:
patient_id.Backgroud.Color = '65280      if(date(DISCHARGE_DATE_TIME) > 2005-6-6 , 16711680, if((date(DISCHARGE_DATE_TIME) < 2005-6-6 and date(DISCHARGE_DATE_TIME) > 2005-5-27 ) , 65535, if(date(DISCHARGE_DATE_TIME) < 2005-5-27,255)))'
------华软网友回答------
日期不能用>、=、<比较啊
------华软网友回复------
那用什么比较。
我在其他地方就可以,为什么偏偏在这里就不行呢
------华软网友回复------
date和date可以比较
但if((date(DISCHARGE_DATE_TIME) < " + string(relativedate(ld_sys ,- gi_sysday))& 
date和string不能比较。
------华软网友回复------
if((date(DISCHARGE_DATE_TIME) < " + string(relativedate(ld_sys ,- gi_sysday))& ……
应为if((date(DISCHARGE_DATE_TIME) < relativedate(ld_sys ,- gi_sysday)& ……

------华软网友回复------
看来楼主是做军惠系统的,是不是想根据病人出院的日期来显示不同的颜色啊?      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。