- 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=119694)
-- 发布时间：2018/5/30 12:30:00
-- [求助]日期填充颜色后，颜色和批注不显示问题
图2设置表日期列 自动填充颜色后，
图3效果变图2效果： 原背景和批注，消失，怎么回复原背景颜色显示和批注小红三角显示？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2.zip |
此主题相关图片如下：1.jpg
此主题相关图片如下：3.jpg
此主题相关图片如下：2.jpg
-- 发布时间：2018/5/30 13:07:00
--
两者，是不能共存的。如果设置style，就不能画图。
改成不设置style，改成也直接画图。
-- 发布时间：2018/5/30 13:56:00
--
1、删了表属性style里面和自定义样式，不能返回显示之前的背景颜色显示，怎样返回之前的正常状态呢？
2、改成不设置style，改成也直接画图。怎么理解呢？
3、把颜色填充的代码（见下面）加到日期筛选里面，可以吗？
Dim t As Table = Tables("背景批注")
Dim dr = t.DataTable.Find("表名=\'" & CurrentTable.name & "\' and 行号 = \'" & CurrentTable.current("_Identify") & "\'")
If dr Is Nothing Then
dr = t.DataTable.addnew
dr("表名") = CurrentTable.name
dr("行号") = CurrentTable.Current("_Identify")
End If
Dim str As String = dr("背景")
Dim nstr As String = ""
Dim cname As String = CurrentTable.cols(CurrentTable.ColSel).name
nstr &= cname & ",-256|"
For Each s As String In str.Split("|")
If s.Contains(cname) = False Then
nstr &= s & "|"
End If
Next
dr("背景") = nstr.trim("|")
CurrentTable.Refresh
t.refresh
4、上面代码是否可以替换下面的style
If e.Col.Name = "方案_效果图方案_完成时间" Then
If e.Row.IsNull("方案_效果图方案_完成时间") = False AndAlso (e.Row("方案_效果图方案_完成否") <> "已完成" Or e.Row("方案_效果图方案_完成否") Is Nothing) Then
If e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(1) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(0) Then
e.Style = "今天到期"
ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(2) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(1) Then
e.Style = "明天到期"
ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(3) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(2) Then
e.Style = "后天到期"
ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(4) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(3) Then
e.Style = "四天后到期"
ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(5) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(4) Then
e.Style = "五天后到期"
ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today.AddDays(6) And e.Row("方案_效果图方案_完成时间") >= Date.Today.AddDays(5) Then
e.Style = "六天后到期"
ElseIf e.Row("方案_效果图方案_完成时间") < Date.Today Then
e.Style = "已过期"
End If
End If
End If
-- 发布时间：2018/5/30 14:10:00
--
1、删除回复本来的drawcell事件代码；
2、和画标注、背景颜色一样，设置单元格的颜色；
3、不可以；
4、读懂画标注、画背景颜色的代码，自食其力，看不懂代码不要做这些功能 http://www.foxtable.com/webhelp/scr/1482.htm
-- 发布时间：2018/5/30 18:33:00
-- 回复：（有点甜）1、删除回复本来的drawcell事件代码；...
狐表里面单元格的所有批注窗口，显示和关闭的代码怎么写呢？
-- 发布时间：2018/5/30 18:44:00
--
狐表里面单元格的所有批注窗口，显示和关闭的代码怎么写呢？
无法理解你什么意思，上传实例说明。
-- 发布时间：2018/5/30 21:24:00
-- 回复：（有点甜）以下是引用湛江智在2018/5/30 18:33:...
批注窗口，打开和关闭显示的按钮，坛主，帮忙谢谢
此主题相关图片如下：效果.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:g.foxdb |
-- 发布时间：2018/5/30 21:44:00
--
无法理解你的意思，你要打开哪个窗口？
foxtable里面设计的窗口是只能打开一个而不能打开多个的。
-- 发布时间：2018/5/30 22:09:00
-- 回复：（有点甜）无法理解你的意思，你要打开哪个窗口...
狐表单元格的批注，想全部显示和隐藏，像excle里面的效果
此主题相关图片如下：效果2.png
-- 发布时间：2018/5/30 22:45:00
--
foxtable没有这种功能。
如果要做，就动态嵌入控件，参考代码
Dim _flex = CurrentTable.grid
_flex.controls.clear
For Each dr As DataRow In DataTables("背景批注").Select("表名 = \'" & CurrentTable.name & "\'")
For Each c As String In dr("批注").split("|")
Dim ary() = c.split(",")
If c > "" Then
Dim cell = _flex.GetCellRect(dr("行号"), CurrentTable.Cols(ary(0)).Index+1)
Dim btn1 As new windows.Forms.label
btn1.name = "btn" & dr("行号")
btn1.text = ary(1)
btn1.left = cell.x+cell.width-10
btn1.top = cell.y+cell.height-10
btn1.backcolor = Color.yellow
btn1.width = 100
btn1.height = 100
_flex.controls.add(btn1)
End If
Next
Next