Foxtable(狐表)用户栏目专家坐堂 → 有几个动态加载表的设置我问一下枚举:


  共有11362人关注过本帖树形打印复制链接

主题:有几个动态加载表的设置我问一下枚举:

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
有几个动态加载表的设置我问一下枚举:  发帖心情 Post By:2011/12/9 8:30:00 [只看该作者]

1)所有的字符的数据的全部靠左,帮助里面没有找到,系统可以设置为靠左,靠右,居中的.

 

2)数值列可以利用代码设置为"0.00",保留两位小数,但是千分位的设置是怎么样设置的?

 

Dim t2 As Table = Tables(e.Form.Name & "_Table1")
For Each c As Col In t2.Cols
    If c.DataCol.IsNumeric  Then
        c.DataCol.SetFormat("0.00")
    End If
Next

 

保留两位小数的,我是这样设置的.但是千分位的没找到.

 

3)还有文本框的格式符号为千分位以及保留两位小数,怎么设置的?

[此贴子已经被作者于2011-12-9 8:31:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/9 8:37:00 [只看该作者]

1、全部靠左:

 

For Each c As col In Tables("表A").Cols
   c.TextAlign = TextAlignEnum.Left
Next

 

2、千分位:

 

For Each c As Col In Tables("表A").Cols
    If c.DataCol.IsNumeric Then
        c.DataCol.SetFormat("#,##0.00")
    End If
Next

 

3、格式符号设置为:#,##0.00

 


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57640 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/12/9 9:19:00 [只看该作者]

谢谢老大,这个项目做下来,基本什么都碰到了.

 回到顶部