求大虾帮忙看下这个代码 ，线与表格对不上。

weixin_41695129 2018-11-25 01:19:45
//该程序用于刷新体温单中的点-线信息
//参数ai_item:0 表示全部项目刷新
// 1,-1 表示仅刷新体温项目，负数表示隐藏
// 2,-2 表示仅刷新脉搏项目，负数表示隐藏
// 3,-3 表示仅刷新呼吸项目，负数表示隐藏

integer i
string ls_m
long ll_first,ll_last
ll_first=long(dw_1.Object.DataWindow.FirstRowOnPage)
if ll_first=0 then return 0
ll_last=min(dw_1.rowcount() - ll_first,41)
if ai_item>0 then
if ai_item=1 then
ib_temprature=true
elseif ai_item=2 then
ib_pulse=true
elseif ai_item=3 then
ib_breath=true
end if
end if
for i=0 to ll_last
if (ai_item=0 and ib_temprature) or (ai_item=1) then
if dw_1.object.tw[i+ll_first]<>0 then
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2100 - 35 - (dw_1.object.tw[i+ll_first] - 36)*220)+"'"

dw_1.Modify(ls_m)
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.tw[i+ll_first - 1]<>0 then
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2100 - 0 - (dw_1.object.tw[i+ll_first - 1] - 36)*220)+"'"

dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2100 - 0 - (dw_1.object.tw[i+ll_first] - 36)*220)+"'"

dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-1 then
ib_temprature=false
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if

if (ai_item=0 and ib_pulse) or (ai_item=2) then
if dw_1.object.mb[i+ll_first]<>0 then
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2148 - 80 - (dw_1.object.mb[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.mb[i+ll_first - 1]<>0 then
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2164 - 63 - (dw_1.object.mb[i+ll_first - 1] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2164 - 63 - (dw_1.object.mb[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-2 then
ib_pulse=false
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if

if (ai_item=0 and ib_breath) or (ai_item=3) then
if dw_1.object.hx[i+ll_first]<>0 then
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2148 - 66 - (dw_1.object.hx[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.hx[i+ll_first - 1]<>0 then
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2164 - 67 - (dw_1.object.hx[i+ll_first - 1] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2164 - 67 - (dw_1.object.hx[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-3 then
ib_breath=false
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
next
if ll_last<>41 and ai_item=0 then
for i=ll_last+1 to 41
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
next
end if
ii_week=dw_1.object.zc[ll_first]
return ii_week
...全文
92 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
weixin_41695129 2018-11-25
  • 打赏
  • 举报
 回复
引用 2 楼 WMERP 的回复:
你这个报表是本来设计好的还是代码CREATE的,要改变数值的话,直接就是dw_1.object.text1[1]=1就可以了

这个问题解决了，虽然与你说不一样，但还是要感谢你给提供的思路。非常感谢。
weixin_41695129 2018-11-25
  • 打赏
  • 举报
 回复
引用 楼主 weixin_41695129 的回复:
//该程序用于刷新体温单中的点-线信息
//参数ai_item:0 表示全部项目刷新
// 1,-1 表示仅刷新体温项目，负数表示隐藏
// 2,-2 表示仅刷新脉搏项目，负数表示隐藏
// 3,-3 表示仅刷新呼吸项目，负数表示隐藏

integer i
string ls_m
long ll_first,ll_last
ll_first=long(dw_1.Object.DataWindow.FirstRowOnPage)
if ll_first=0 then return 0
ll_last=min(dw_1.rowcount() - ll_first,41)
if ai_item>0 then
if ai_item=1 then
ib_temprature=true
elseif ai_item=2 then
ib_pulse=true
elseif ai_item=3 then
ib_breath=true
end if
end if
for i=0 to ll_last
if (ai_item=0 and ib_temprature) or (ai_item=1) then
if dw_1.object.tw[i+ll_first]<>0 then
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2100 - 35 - (dw_1.object.tw[i+ll_first] - 36)*220)+"'"

dw_1.Modify(ls_m)
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.tw[i+ll_first - 1]<>0 then
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2100 - 0 - (dw_1.object.tw[i+ll_first - 1] - 36)*220)+"'"

dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2100 - 0 - (dw_1.object.tw[i+ll_first] - 36)*220)+"'"

dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-1 then
ib_temprature=false
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if

if (ai_item=0 and ib_pulse) or (ai_item=2) then
if dw_1.object.mb[i+ll_first]<>0 then
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2148 - 80 - (dw_1.object.mb[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.mb[i+ll_first - 1]<>0 then
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2164 - 63 - (dw_1.object.mb[i+ll_first - 1] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2164 - 63 - (dw_1.object.mb[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-2 then
ib_pulse=false
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if

if (ai_item=0 and ib_breath) or (ai_item=3) then
if dw_1.object.hx[i+ll_first]<>0 then
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Y='"+&
string(2148 - 66 - (dw_1.object.hx[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
if i<>0 then
if dw_1.object.hx[i+ll_first - 1]<>0 then
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y1='"+&
string(2164 - 67 - (dw_1.object.hx[i+ll_first - 1] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Y2='"+&
string(2164 - 67 - (dw_1.object.hx[i+ll_first] - 100)*11)+"'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='1'"
dw_1.Modify(ls_m)
else
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
end if
else
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
elseif ai_item=-3 then
ib_breath=false
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
end if
next
if ll_last<>41 and ai_item=0 then
for i=ll_last+1 to 41
ls_m="ov_tw_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_tw_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ov_mb_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_mb_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ov_hx_"+string(int(i/6)+1)+string(mod(i,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
ls_m="ln_hx_"+string(int((i - 1)/6)+1)+string(mod(i - 1,6)+1)+".Visible='0'"
dw_1.Modify(ls_m)
next
end if
ii_week=dw_1.object.zc[ll_first]
return ii_week


求大神帮忙，红线的起点应该在11.25那栏红色4的那格里，现在向左偏了三格。
weixin_41695129 2018-11-25
  • 打赏
  • 举报
 回复
报表是设计好的
WMERP 2018-11-25
  • 打赏
  • 举报
 回复
你这个报表是本来设计好的还是代码CREATE的,要改变数值的话,直接就是dw_1.object.text1[1]=1就可以了
weixin_41695129 2018-11-25
  • 打赏
  • 举报
 回复
住院天数：第一天的0怎么改成1
C# For Unity系列之入门篇
你想当“李逍遥”式的“大侠”吗？ 这里无需计算机基础，无需编程经验，你也不必是计算机专业的在校大学生....只要爱好游戏，怀揣梦想！ 有一定自主学习能力，跟着刘老师从“编程小白”修炼为游戏研发“大虾”吧！！！学习好Unity，其先决条件是一定要有稳固、扎实的编程基础！课程 《C# For Unity系列之入门篇》配套学习资料链接：http://pan.baidu.com/s/1gflxreN 密码：sou5；刘老师讲Unity学员群(2) 497429806一、热更新系列(技术含量：中高级)：A：《lua热更新技术中级篇》https://edu.csdn.net/course/detail/27087B：《热更新框架设计之Xlua基础视频课程》https://edu.csdn.net/course/detail/27110C：《热更新框架设计之热更流程与热补丁技术》https://edu.csdn.net/course/detail/27118D：《热更新框架设计之客户端热更框架(上)》https://edu.csdn.net/course/detail/27132E：《热更新框架设计之客户端热更框架(中)》https://edu.csdn.net/course/detail/27135F：《热更新框架设计之客户端热更框架(下)》https://edu.csdn.net/course/detail/27136二：框架设计系列(技术含量：中级)： A：《游戏UI界面框架设计系列视频课程》https://edu.csdn.net/course/detail/27142B：《Unity客户端框架设计PureMVC篇视频课程(上)》https://edu.csdn.net/course/detail/27172C：《Unity客户端框架设计PureMVC篇视频课程(下)》https://edu.csdn.net/course/detail/27173D：《AssetBundle框架设计_框架篇视频课程》https://edu.csdn.net/course/detail/27169三、Unity脚本从入门到精通(技术含量：初级)A：《C# For Unity系列之入门篇》https://edu.csdn.net/course/detail/4560B：《C# For Unity系列之基础篇》https://edu.csdn.net/course/detail/4595C: 《C# For Unity系列之中级篇》https://edu.csdn.net/course/detail/24422D：《C# For Unity系列之进阶篇》https://edu.csdn.net/course/detail/24465四、虚拟现实(VR)与增强现实(AR):(技术含量：初级)A：《虚拟现实之汽车仿真模拟系统 》https://edu.csdn.net/course/detail/26618五、Unity基础课程系列(技术含量：初级) A：《台球游戏与FlappyBirds—Unity快速入门系列视频课程（第1部）》 https://edu.csdn.net/course/detail/24643B：《太空射击与移动端发布技术-Unity快速入门系列视频课程（第2部）》https://edu.csdn.net/course/detail/24645 C：《Unity ECS(二) 小试牛刀》https://edu.csdn.net/course/detail/27096六、Unity ARPG课程(技术含量：初中级)：A：《MMOARPG地下守护神_单机版实战视频课程(上部)》https://edu.csdn.net/course/detail/24965B：《MMOARPG地下守护神_单机版实战视频课程(中部)》https://edu.csdn.net/course/detail/24968C：《MMOARPG地下守护神_单机版实战视频课程(下部)》https://edu.csdn.net/course/detail/24979
js怎样设置td中input的css样式,js动态平添的行中td的样式不起作用
JavaScript»js动态平添的行中td的样式不起作用js动态平添的行中td的样式不起作用www.myexceptions.net网友分享于：2013-10-11浏览：79次js动态添加的行中td的样式不起作用各位大虾会的就帮帮忙，在线等在表格中原先...
C++程序代码优化的方法
　在许多种情况下，可以用指针运算代替数组索引，这样做常常能产生又快又短的代码。与数组索引相比，指针一般能使代码速度更快，占用空间更少。使用多维数组时差异更明显。下面的代码作用是相同的，但是效率不一样。...
java 错误 主函数,下面的一个java程序为何在eclipse中运行有错误(总是出现main函数错误)?各位大虾帮帮忙吧！-excel错误值...
右键工作签-代码，看面有没有代码进入C:\Documents and Settings\\Application Data\Microsoft\Templates，将Templates删除就可以了(文件是隐藏的)望采纳，谢谢Excel表格中，隐含模块中的编译错误:MainFunc怎么解决...
一段php代码,请问一段PHP代码是什么意思？
在网上看到一段PHP代码，由于我没学过PHP，不知道是什么意思，求各位大虾帮忙解释。。。。。。[{"text": "1. Pre Lunch (120 min)","expanded": true,"classes": "important","children":[{"text": "1.1 The State ...
非技术版

397

社区成员

11,521

社区内容

发帖
与我相关
我的任务
社区描述
PowerBuilder 非技术版
社区管理员
  • 非技术版社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章