none
VB6.0升级到Visual studio 2010 时遇到的问题,请高人解决。 RRS feed

  • 问题

  • Public Sub HTCX_Click(ByVal  eventSender  As  System. Object,  ByVal  eventArgs  As  System. EventArgs) Handles HTCX.Click

                       Dim Index As Short = HTCX.GetIndex(eventSender)

                       Dim asd As Object

                       Dim X As Object

                       Dim N As Object

     

                       'UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                       N = Index

                       Select Case N

                                Case 0

     

                         UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         X = InputBox("请输合同编号:" "按合同编号访问" "")

                                         FrmHTCX.DefInstance.Show()

     

                                         ‘UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                          DataEnvironment1.Recordsets(1).Filter = "合同编号  like " & X & "*"

     

                                         UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         FrmKCCX.DefInstance.Text = "合同简介—按合同编号查询:"  &  X

     

                                         'UPGRADE_WARNING: 未能解析对象 asd 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         asd = DataEnvironment1.Recordsets(1).RecordCount

     

                                         ‘UPGRADE_WARNING: 未能解析对象 asd 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         If  asd = 0 Then

                                                   MsgBox("无此合同编号,请通过其它方式查询 !"0 + 48 + 0, "数据检查")

                                                   FrmHTCX.DefInstance.Close()

                                         End If

                                Case 1

     

                                         UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         X = InputBox("请输入用户名称:", "按用户名称查询", "")

                                         FrmHTCX.DefInstance.Show()

     

                                         UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         DataEnvironment1.Recordsets(1).Filter = "用户名称  like '" &  X  & "*'"

     

                                         UPGRADE_WARNING: 未能解析对象N 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         FrmKCCX.DefInstance.Text = "合同简介—用户名称查询:" &  X

     

                                         ‘UPGRADE_WARNING: 未能解析对象 asd 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         asd = DataEnvironment1.Recordsets(1).RecordCount

     

                                         ‘UPGRADE_WARNING: 未能解析对象 asd 的默认属性。单击以获得更多信息:'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'

                                         If  asd = 0 Then

                                                   MsgBox("无此用户名称,请通过其它方式查询!", 0 + 48 + 0, "数据检查")

                                                   FrmHTCX.DefInstance.Close()

                                         End If

                       End Select

             End Sub

    2011年9月20日 12:40

答案