此主题相关图片如下:2019-01-29_110040.png

如上图,我有一个学校表,包含全部的学校,还有一个我的志愿表,这是我从学校表中选出来的喜欢的,如上图
学校上有一个“加入自选”的按钮,代码如下
以下内容为程序代码:
1 Dim r As Row = Tables("选志愿_yx").Current
2 Dim nr As Row = Tables("我的志愿").AddNew()
3 For Each dc As Col In Tables("选志愿_yx").Cols
4 If dc.name<>"自选" Then
5 nr(dc.name) = r(dc.name)
6 End If
7 Next
8 DataTables("我的志愿").save()
我要实现的目标是,在“院校表”将某个院校填加自选时,此院校前面有一个“自选”列,绘制出一个图标,以示提示此院校已经加入自选列了
我的思路是这样的:在“我的志愿”表的DataRowAdded中加入代码,来监控行的变化,如有填加就执行代码,获取“院校名称”,并给一个全局变量,如下图
下图是“我的志愿”表格的一些设置
此主题相关图片如下:2019-01-29_105907.png

问题一,我发现在“院校表”中点“加入自选”按钮时,监控全局变量最后一条的院校名称总是空的,请问DataRowAdded是在addnew()后就马上执行吗?要实现这个功能老师有没有一个更好的建议?
问题二,如果获取了“我的志愿”中院校名称的信息到一个集合中,在绘制窗口怎么写院校属于这个集合的这个表达式?
假如这个集合叫names,这样写可以吗?
If e.Col.name= "自选" Then
e.StartDraw
If Names.Contains(e.Row("院校名称"))= True Then
e.Graphics.DrawImage(delimg1, e.x + 3,e.y + 3) '绘制第一个图标
End If
e.EndDraw
End If
[此贴子已经被作者于2019/1/29 11:43:41编辑过]