If e.IsFocusCell Then '如果是焦点所在单元格
Dim aa() As String ={"T","N","M"}
For Each a As String In aa
If e.Col.Name = a Then '如果正在编辑的是a列
Dim dmp As New TableDataMap
dmp.DataTable = "TNMStage" '指定数据来源表
dmp.ValueCol = "TNM" '指定取值列
dmp.DisplayCol = "TNM" '指定显示列
dmp.ListCols = "肿瘤类型,TNM,分期标准,Version"
dmp.Filter = "[肿瘤类型] = '" & e.Row("肿瘤类型") & "' and [TNM] Like '" & a & "%" & "'"
Tables("tblCStage").Cols(a).DataMap = dmp.CreateDataMap() '生成并设置DataMap
End If
Next
End If
程序可以运行,如图1:
此主题相关图片如下:图1.jpg
但鼠标点击下方单元格时,上方已编辑单元格的字符就不显示了,如图2:
此主题相关图片如下:图2.jpg
当鼠标再次点击已编辑单元格,消失的字符又显示了,如图3:
此主题相关图片如下:图3.jpg
而且程序好像很慢,有明显卡顿现象。请问老师,这是什么原因,如何处理呢?