以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  加字母问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48220)

--  作者:aygp
--  发布时间:2014/3/25 13:50:00
--  加字母问题
数据表有一个“跳远成绩”列,录入成绩时只录入数字,如:6   6.4     5     等。如何通过按键代码变为6M   6.4M     5M(只对屏幕上的前台数字加字母) 。
--  作者:scirocco
--  发布时间:2014/3/25 14:25:00
--  
可以在表里加上一个表达式列,内容是跳远成绩加上M字符,然后通过按钮来决定是否显示。
--  作者:Bin
--  发布时间:2014/3/25 14:31:00
--  
声明一个全局变量 逻辑值

按钮Click事件改变全局变量的值

DrawCell事件

if e.col.name="录入成绩" then
   if 全局变量=true then
      e.text=e.row(e.col.name) & "M"
   end if
end if

--  作者:aygp
--  发布时间:2014/3/25 22:17:00
--  
现重新说明一下: 

     表A有“录入成绩”列,必须是单精小数型,有“成绩”列,是字符型。在“录入成绩”列录入成绩时只录入数字,
如:6   6.4   5  等。如何在对应的“成绩”列自动生成6M   6.4M  5M。或者一键生成6M   6.4M     5M。
 
     
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:添加m.rar



--  作者:lsy
--  发布时间:2014/3/26 7:50:00
--  

DataColChanged

If e.DataCol.Name = "录入成绩" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    e.DataRow("成绩") = e.DataRow(e.DataCol) & "M"
End If


--  作者:Bin
--  发布时间:2014/3/26 8:24:00
--  
或者参考2楼采用表达式的方式,更加简单.
--  作者:aygp
--  发布时间:2014/3/26 11:31:00
--  
通过。谢谢各位老师!