- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 货币类型列对应金额列显示货币符号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51548)
-- 发布时间：2014/5/28 16:55:00
-- 货币类型列对应金额列显示货币符号
此主题相关图片如下：qq图片20140528165043.jpg
此主题相关图片如下：qq图片20140528165049.jpg
按上上图显示，货币类型选择美元后，金额整列都会显示$***元的
表属性datacolchaged里的代码是：
Select Case e.DataCol.Name
Case "货币类型"
If e.DataRow("货币类型") = "美元" Then
DataTables("表A").DataCols("金额").SetFormat("$0.00")
ElseIf e.DataRow("货币类型") = "人民币" Then
DataTables("表A").DataCols("金额").SetFormat("￥0.00")
ElseIf e.DataRow("货币类型") = "欧元" Then
DataTables("表A").DataCols("金额").SetFormat("�0.00")
ElseIf e.DataRow("货币类型") = "港元" Then
DataTables("表A").DataCols("金额").SetFormat("HK$0.00")
End If
End Select
我想要选择美元后，只有一行显示$****,请问代码怎么改呢～～～急
-- 发布时间：2014/5/28 16:58:00
--
只能是整列设置。
可以变通一下：增加一个表达式，字符列，用来显示金额，根据不同的货币类型设置显示的格式。
-- 发布时间：2014/5/28 17:07:00
--
在DrawCell事件. 根据货币类型列,设置e.text 即可
if e.col.name="金额" then
select case e.row("货币类型")
case "人名币"
e.text="￥" & e.row("金额")
case "美元"
e.text="$" & e.row("金额")
end select
end if
-- 发布时间：2014/5/29 10:11:00
--
狐兄狐弟们，我试过bin的方法，
此主题相关图片如下：qq图片20140529100552.jpg
第一行的货币类型选择港元，第一行金额列没错，能显示港元符号，但第三行选择美元，第三行和第二行的金额列会自动显示$***,再第四行选择欧元，第二行和第四行金额列会自动显示欧元符号，真的搞不懂啊～～
我在项目属性项目事件的maintablechanged里添加的代码：
If MainTable.Name = "表A" Then
Tables("表A").Cols("客户").Combolist = DataTables("表B").GetComboListString("客户名称")
Tables("表A").Cols("货币类型").Combolist = DataTables("表B").GetComboListString("货币名称")
End If
[此贴子已经被作者于2014-5-29 10:13:18编辑过]
-- 发布时间：2014/5/29 10:11:00
--
请例子,纸上不谈兵, 如果按照代码来写,是不可能出问题的.
-- 发布时间：2014/5/29 10:15:00
--
上了例子啦，请各位高手帮我查看一下到底哪里出问题了！
[此贴子已经被作者于2014-5-29 10:16:01编辑过]
-- 发布时间：2014/5/29 10:16:00
--
上传图片和文件参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78 请尽量使用IE,谷歌,火狐等主流浏览器上传. 使用谷歌浏览器必须要先输入一个以上的字符 上传后需要等文件代码出现才算成功! |
-- 发布时间：2014/5/29 10:33:00
--
以下是引用fszyhzg在2014-5-29 10:15:00的发言：
上了例子啦，请各位高手帮我查看一下到底哪里出问题了！
上了例子啦，请各位高手帮我查看一下到底哪里出问题了！
[此贴子已经被作者于2014-5-29 10:16:01编辑过]
看3楼的代码，去编写drawcell事件。