主题：切换成英文输入法

用代码切换

 

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    output.show(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang

        msgbox("切换到搜狗输入法成功")
        Exit For
    End If
Next

1、能否切换到搜狗？

 

2、把字符改成你对应的输入法名字，即可。

 

For Each lang As Object In Windows.Forms.InputLanguage.InstalledInputLanguages
    msgbox(lang.LayoutName)
    If lang.LayoutName Like "*搜狗拼音输入法*" Then
        Windows.Forms.InputLanguage.CurrentInputLanguage = lang

        msgbox("切换到搜狗输入法成功")
        Exit For
    End If
Next

 

你代码写在什么地方了？你要写在prepareEdit事件。

 

我测试没问题。

 

切换到单元格的时候，肯定触发切换了输入法为英文，也肯定能输入条码。

 

具体问题上传实例说明。

 正确上传附件，说明如何操作，要做什么效果。

1、你不能切换成 英文输入法？为什么一定要用是搜狗？

 

2、你可以用一个列记录输入的时间，再次输入编号以后，查找重复的行，对比输入时间。

 

3、参考 http://www.foxtable.com/webhelp/scr/2403.htm

 

4、上传具体实例看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.table

 

AfterSelChanged 事件的代码删除

 把18楼的AfterSelChanged 事件的代码加上。

 

 没理解你的问题，增加行以后，光标你想放在哪里？