主题：请老师和高手赐教

我有个项目，表数据都是以元为单位录入的，但大多数查询数据都是以万元为单位，所以我想增加个菜单按钮，通过按钮在元和万元之间转换，请老师或高手赐教，代码怎么写。老师也提供过相关帮助的方法，但帮助里是根据用户角色来判断的，所以还有些不适合。打印输出的报表已经通过设置从元转换为万元了，谢谢谢谢！！

 呃，你还不如多加一表达式列，需要显示万元的时候，就显示那个表达式。

 

 具体问题，你至少要做个例子上来吧？你空口问，别人只能空口答你

呵呵，角色和万还是员没有关系。

 

窗口加两个RaidonButton，一个名称为元，一个名称为万：

查询按钮代码：

 

Dim v As Double = e.Form.Controls("查询内容输入框").Value

if e.form.Controls("万").Checked Then

   v = v * 10000

end if

原来的代码。

如果要显示可以用DrawCell来实现

谢谢老师们，我按你们说的研究哈，菜鸟一枚，要学习哈。。。

狐狸爸爸，我把你的代码改成如下后，提示： 

 做个例子发上来。

老师帮助看一下，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

  

  

          

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

比如项目里，表A和表B都有一个共有窗口1，共有窗口1有两个控件，一个是元，一个是万元，默认值是元，当点击万元控件时，所有表凡是列类型为双精度小数列全部除以10000转换为以万元表示的数值，即原来是10000，点击“万元”控件后，数值变为1