Foxtable(狐表)用户栏目专家坐堂 → 有关DRAWCELL


  共有2297人关注过本帖平板打印复制链接

主题:有关DRAWCELL

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


加好友 发短信
等级:幼狐 帖子:70 积分:711 威望:0 精华:0 注册:2018/3/22 8:22:00
有关DRAWCELL  发帖心情 Post By:2019/11/28 9:46:00 [只看该作者]

我想让每天录入的第一条数据用特别的样式
代码如下
Dim t1 As Table = Tables("评估简表")

Dim dr2 As DataRow 
Dim dr3 As DataRow
Dim ii8 As Integer=t1.Rows.Count - 1

Dim i As Integer 
For I =0 To ii8
    I=I+1
dr2 = DataTables("评估简表").DataRows(I)
dr3 = DataTables("评估简表").DataRows(I-1)

If dr2("日期")>dr3("日期")
 e.Style = "样式5"
End If 
Next

但是运行一直出现错误    
请大神指教


 回到顶部