- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单元格绘图问题求助？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82263)
-- 发布时间：2016/3/14 22:42:00
-- 单元格绘图问题求助？
老师好！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单元格绘图求助？.table |
元格，并按“表C”中的消售情况进行单元格绘图，求助！查询表我会弄，但后面的单元格定位及绘图样式不懂，求教！！！
-- 发布时间：2016/3/14 23:15:00
--
drawcell事件
If e.Table.name = "窗口1_table2" Then
If e.Col.name Like "*户型" AndAlso e.text > "" Then
e.StartDraw()
Dim cs() As Char = {"栋","幢", "-", "#", "/"}
Dim fnt As New Font("宋体",9)
Dim drs As List(Of DataRow) = DataTables("表C").Select("小区地址 = \'" & e.Row("小区地址") & "\'")
For Each dr As DataRow In drs
If dr("楼号").split(cs)(0) & "幢" = e.Row("小区楼号") AndAlso dr("楼号") Like "*" & e.text & "*" Then
e.text = ""
Dim msg As String = dr("消售情况")
e.Graphics.DrawString(msg,fnt,Brushes.Red,e.x+1, e.y+1)
Exit For
End If
Next
e.EndDraw()
End If
End If
-- 发布时间：2016/3/14 23:25:00
--
老师辛苦了，这么晚还没有睡！
此主题相关图片如下：0301.gif
容也改变了！
-- 发布时间：2016/3/14 23:45:00
--
If e.Table.name = "窗口1_table2" Then
If e.Col.name Like "*户型" AndAlso e.text > "" Then
Dim cs() As Char = {"栋","幢", "-", "#", "/"}
Dim fnt As New Font("宋体",9)
Dim drs As List(Of DataRow) = DataTables("表C").Select("小区地址 = \'" & e.Row("小区地址") & "\'")
For Each dr As DataRow In drs
If dr("楼号").split(cs)(0) & "幢" = e.Row("小区楼号") AndAlso dr("楼号") Like "*" & e.text & "*" Then
e.style = dr("消售情况")
Exit For
End If
Next
End If
End If
-- 发布时间：2016/3/14 23:50:00
--
谢谢大红袍老师！
-- 发布时间：2016/3/14 23:53:00
--
e.style = dr("消售情况")
-- 发布时间：2016/3/14 23:56:00
--
我试了一下，这样改不行。我想用“分布表”中自己的样式名，这样我对“表C”的消售情况中的内容赠加也不会干扰到这边的结果,求指点？
-- 发布时间：2016/3/15 0:23:00
--
就这样，可以了！太麻烦老师了，老师早点休息！
-- 发布时间：2016/3/15 0:36:00
--
老师，不好意思又要麻烦您，经测试代码有一点小问题，当我的楼号超过4位时就会出错，比如本来要标记的单元格是1701单元格，代码会把701也标记上，这样应该怎样修改代码？
-- 发布时间：2016/3/15 9:13:00
--
没事了，是我写错了