Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样给临时表突出选中行背景设置


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

主题：怎样给临时表突出选中行背景设置
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113133 积分：576082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/25 9:50:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/1577.htm

DataTables("temp").SysStyles("CurrentRow").BackColor = Color.red
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113133 积分：576082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/25 11:34:00 [显示全部帖子]

生成临时表的代码发上来

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113133 积分：576082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/25 12:14:00 [显示全部帖子]

每次设置DataSource 都是新表，没有必要浪费时间再删除一下列

Dim tb As Table = Tables("导入凭证库财政记录_table1")

tb.StopRedraw()
Dim Book As New XLS.Book(e.Form.Controls("TextBox2").text)
Dim Sheet As XLS.Sheet = Book.Sheets(e.Sender.text)

Dim dtb As New DataTableBuilder("temp")
dtb.AddDef("已导入", GetType(Boolean))
For m1 As Integer = 1 To Sheet.cols.Count
    dtb.AddDef("第" & m1 & "列", GetType(String), 255)
Next
tb.DataSource = dtb.BuildDataSource ()
tb.DataTable.GlobalHandler.DrawCell=true ’http://www.foxtable.com/webhelp/topics/0671.htm
tb.DataTable.AddUserStyle("a", Color.Red, Color.black) ‘http://www.foxtable.com/webhelp/topics/1579.htm
……其他代码

然后说道全局表事件DrawCell事件写代码
If e.Row("已导入")=true Then
    e.Style = "a"
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询