在MouseEnterCell事件设置代码:
If e.Col.Name = "备注" AndAlso e.Row.IsNull("备注") = False Thene.Table.ShowToolTip(e.Row("备注"),e.Row,e.Col)End If
或
1、在StartEdit(注意不是PrePareEdit事件)事件中设置代码:
If e.Col.Name = "编码" Then Dim v As String = "1: 初中" v = v & vbcrlf & "2: 高中" v = v & vbcrlf & "3: 大专" v = v & vbcrlf & "4: 本科" v = v & vbcrlf & "5: 硕士" v = v & vbcrlf & "6: 博士" e.Table.ShowToolTip(v, e.Row, e.Col)End If
根据以上代码,我希望做一个功能:进入单元格"产品编号"时,获取 进货明细 表的同一产品编号的所有不重复进货单价;