以文本方式查看主题

-  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=29942)

--  作者:郭长青
--  发布时间:2013/3/17 11:36:00
--  [求助]
将DrawCell事件的代码设为:

\'如果是数值型列,且不是总分列
If
e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
    If
e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容
       
If e.Row(e.Col.Name) < 60 Then \'如果该列的值小于60
            e.Style = "不及格" \'那么用"不及格"样式绘制单元格
       
End If
    End
If
End
If

3、在计划管理(位于数据库功能区)中增加一个计划,时间间隔设为1000,代码设为

With DataTables("成绩表").Styles("不及格")
    If .
BackColor = Color.Red Then
        .
BackColor = Color.White
    Else
        .
BackColor = Color.Red

    End If
End With

请问:如果不是数值列可以吗,例如等于张三,代码有是怎样的,谢谢


--  作者:郭长青
--  发布时间:2013/3/18 9:31:00
--  
拜托老师,将上面代码修改后完整的发过来好吗,谢谢
--  作者:狐狸爸爸
--  发布时间:2013/3/18 9:35:00
--  
你要做什么,请完整表述一下
--  作者:郭长青
--  发布时间:2013/3/18 12:10:00
--  
我要做的是:在一个表里把是“张三”的单元格,用"特定"样式绘制出单元格,并且不停的闪烁,谢谢

--  作者:郭长青
--  发布时间:2013/3/18 13:06:00
--  
将DrawCell事件的代码设为: \'如果是数值型列,且不是总分列 If e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then If e.Row.IsNull(e.Col.Name) = False \'且该列已经输入内容 If e.Row(e.Col.Name) < 60 Then \'如果该列的值小于60 e.Style = "不及格" \'那么用"不及格"样式绘制单元格 End If End If End If 3、在计划管理(位于数据库功能区)中增加一个计划,时间间隔设为1000,代码设为 With DataTables("成绩表").Styles("不及格") If .BackColor = Color.Red Then .BackColor = Color.White Else .BackColor = Color.Red End If End With 我要做的是:在一个表里把是“张三”的单元格,用"特定"样式绘制出单元格,并且不停的闪烁,谢谢
--  作者:狐狸爸爸
--  发布时间:2013/3/18 14:13:00
--  

一样的啊:

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.table


--  作者:郭长青
--  发布时间:2013/3/19 10:12:00
--  
第一个问题:

If e.Row(e.Col.Name) = "张三" Then,这里的“张三”如果改为空白单元格,怎样写

第二个问题:查询表里的数据能不能自动更新,不需要点"同步所有表",如何设置


--  作者:狐狸爸爸
--  发布时间:2013/3/19 10:14:00
--  

If e.Row(e.Col.Name) = "张三" Then
 
改为
 
If e.Row.Isnull(e.Col.Name)  Then

 

可以做个计划,定期同步。


--  作者:郭长青
--  发布时间:2013/3/19 10:22:00
--  
代码怎么写,老师
--  作者:狐狸爸爸
--  发布时间:2013/3/19 10:41:00
--  

做个计划,5分钟执行一次:

http://www.foxtable.com/help/topics/0657.htm

 

计划代码:

 

DataTables("xxx").Load()