iceman您好,
我没说清楚,我这里设定fucus不成功是因为
想控制在spread的某个单元格没有输入内容时,要求弹出一个警告message,用户点了message上的确定按钮后,然后把焦点设到出错的地方。
'当第一个Spread里面的振替数量没有输入的时候弹G002message告诉用户 振替数量不能省略
If llMaeShohinCnt > 0 And llMaeFuriCnt = 0 Then
giSpreadFlg = 1
iActiveRow = 0
iActiveColumn = enSpdCol.FuriSryCase
WebMsgBox1.AddMessage("G002", "SpreadInputCheck", "振替前商品の振替数量") '%は省略できません。
Exit Function
End If
'G002message确定按钮按了后,把焦点移到振替数量那个单元格里
Dim ioSpread As Object
If giSpreadFlg = 1 Then
ioSpread = fpSpread1
Else
ioSpread = fpSpread2
End If
With ioSpread.ActiveSheetView
.ActiveRow = iActiveRow
.ActiveColumn = iActiveColumn
End With
设焦点的那段是跑进去了,焦点蓝色显示也被设到那个单元格了,就是黑框没有过去,还停留在焦点原来所在的位置。
SpreadFocus2.jpg
(25.58 KB, 下载次数: 530)
|