Foxtable(狐表)用户栏目专家坐堂 → 全局样式代码


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

主题:全局样式代码

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
全局样式代码  发帖心情 Post By:2014/1/13 19:26:00 [显示全部帖子]

表比较多,想在项目的全局表事件的   DrawCell事件中统一设置样式,用一个循环将所有是数字类型的进行判断,如果小于60,就设置为“不及格”样式,代码如下可是不执行,是不是全局表事件和一直表的事情的代码不同,如果不同该怎么改呢。


Dim tbnames() As String = {  "##成绩报表", "##成绩报表", "##成绩报表", "##成绩报表" }
 
For i As Integer = 1 To tbnames.Length - 1
    Dim f As New Filler
    
    '如果是数值型列,且不是组号列
    If f.IsNumeric AndAlso e.Col.Name <> "组号" Then
        If f.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
            If f.Row(e.Col.Name) < 60 Then '如果该列的值小于60
                f.Style = "不及格" '那么用"不及格"样式绘制单元格
                
            End If
        End If
    End If
    
    
Next
这段代码错误比较多,高手可以 帮我改改吗?


这个事件是不是不能用循环呢,用当前表吗?



[此贴子已经被作者于2014-1-13 19:29:56编辑过]

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 19:44:00 [显示全部帖子]

谢谢了。

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 19:50:00 [显示全部帖子]

提示indexof出错,e。是局部还是全局呢,在命令窗口执行,提示e不能用在上下文

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 20:11:00 [显示全部帖子]

放入表事件可以实现,放入全局表事件就不行了。在全局表事件可以实现吗

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 20:22:00 [显示全部帖子]

怎么开启呀,我看了你给的连接帮助我之前也看过了,可是不知道怎么说开启,是把这段代码也写到这个事件吗

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 20:33:00 [显示全部帖子]

成功了,谢谢啊,呵呵呵

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 20:44:00 [显示全部帖子]


如果我想在全局事件中设置所有表的ValidateEdit,我引用上一个的代码,你看这样对不。

Dim tbnames() As String = {  "##成绩报表", "##成绩报表", "##成绩报表", "##成绩报表" }

 If Array.IndexOf(tbnames, e.Table.name) > -1 Then

 Dim v As Double = e.Text 

           If v > 100 Then

            e.Cancel = True 

           End If

    If e.Cancel Then '如果本次输入被取消,则提示用户原因

        Messagebox.show("你输入的成绩超出授权范围!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End If


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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 20:59:00 [显示全部帖子]

这句的变量有问题,该怎么改呢。

 Dim 
v As Double = e.Text 
输入的数字,不是文本。
 改为
Dim v As Double = e.Double 
[此贴子已经被作者于2014-1-13 21:00:59编辑过]

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 21:23:00 [显示全部帖子]

是的,不用转也成功了,我把前面加一个判断数据列,估计我的表里有文本的原因所有提示出错,
If e.Col.IsNumeric Then
加上成功了。


还有个关于表达列和加载树的问题想请教,
在成绩汇总表里面所有列都是表达列,有其他表引用过来,为了替代搜索功能,我用加载树,没一张表都用了加载树,这样方便,可是问题也出现了,


当点击成绩汇总里面的加载树,比如选择某一分组,可以显示这一分组信息。可是没有成绩,因为别的表的加载树没有加载这些数据,所以成绩汇总表这些成绩是空,

有没有方法可以在成绩汇总表点击加载树的某一分组,别的表加载树也跟这变加载相应的数据呢。

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


加好友 发短信
等级:幼狐 帖子:160 积分:1044 威望:0 精华:0 注册:2013/12/27 0:27:00
  发帖心情 Post By:2014/1/13 21:40:00 [显示全部帖子]

是出现多个循环情况了,估计会出现崩溃,不过当软件使用是一般用户只能看到当前表,就不会出现了,我自己注意知道就行了,就这了,不改了,再改永远改不到头了。




想问一下关于加载树的,可不可以设置一个加载树同时针对所有表进行加载设置呢,比如我点击某一分组,所有表都加载这一分组的信息。可以做到吗

 回到顶部
总数 11 1 2 下一页