none
想请教各位帮忙看看我scanner read data 去text box的code RRS feed

  • 问题

  • 可以帮忙看看我scanner read data 进text box的code 有问题。我program出现的问题是当scanner read data 进data时我的datagridview show不到资料反而用手type的话就search 到datagridview 的data。想请教各位指点迷津

    以下是我的scanner 的code

    Private Sub Scanner1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles Scanner1.DataReceived

    Dim dataIn as string
    Dim datain1 as string

            dataIn = Scanner1.ReadExisting
            datain1 = dataIn.Replace(" ", "")
            SetText(datain1)
        End Sub

        Delegate Sub SetTextCallback(ByVal text As String)

        Private Sub SetText(ByVal text As String)
            If Me.txtSearch.InvokeRequired Or Me.txtSearch1.InvokeRequired Then
                Dim d As SetTextCallback = New SetTextCallback(AddressOf SetText)
                Me.Invoke(d, New Object() {text})
            Else
                Me.txtSearch.Text = text.ToString
                Me.txtSearch1.Text = text.ToString
            End If
        End Sub

    以下是我datagirdview 的code

    Dim cnn4 As New OleDb.OleDbConnection
            cnn4.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=mydataX.mdb;"
            If Not cnn4.State = ConnectionState.Open Then
            End If
            cnn4.Open()
            Dim dt As New DataTable
            Dim ds As New DataSet
            ds.Tables.Add(dt)
            Dim da As New OleDbDataAdapter

            da = New OleDbDataAdapter("SELECT * FROM tbl_checker WHERE cbcid like '%" & txtSearch1.Text & "%'", cnn4)
            da.Fill(dt)

            dgvData1.DataSource = dt.DefaultView
            cnn4.Close()


    谢谢
    2020年2月11日 1:32

全部回复

  • Hi christring,

    经过我的测试,我不太明确你的Scanner是什么控件,你能告诉我吗?

    并且我希望你可以用纯中文来表述你的问题,这会使得你的问题更清晰。

    Best Regards,

    Jack


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    2020年2月11日 2:53
    版主
  • Hi Jack J Jun

    感谢你的回复

    Scanner 是 barcode Scanner 

    我遇到的问题是用户通过手动在txtSearch.Text (barcode) 找资料,资料呈现在datagirdview找到资料但是通过scanner 扫barcode的话却无法在datagirdview找到资料。

    我发现我的scanner所扫到的barcode有一个空格。我便用replace的方式,来replace我所读到的barcode的空格但是还是无法从datagridview找到资料。


    Dim dataIn as string
    Dim datain1 as string

            dataIn = Scanner1.ReadExisting
            datain1 = dataIn.Replace(" ", "")
            SetText(datain1)
        End Sub



    2020年2月11日 5:00
  • 最後一個字元或許不是空格,而是換行字元,試著用 String.Remove 移除掉 Environment.NewLine

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。 https://skilltree.my/

    2020年2月11日 7:53
  • @Jack J Jun 

    我已解决了我出现的问题

    感谢你的回复

    2020年2月12日 2:25
  • @Jack J Jun 

    我已解决了我出现的问题

    感谢你的回复

    你好:

    如果有空的话,烦请分享您的答案并标记一下,这样或许可以帮助更多的人,谢谢你。


    Reproduce your quesions with ScreenToGif is your choice. 
    For IIS: IIS Forum
    For WebSite of .NET: ASP.NET Forum
    For others: StackExchange
    For spam-sender or forum urgent issues, Send your Email at:  forumsfeedback@microsoft.com

    2020年2月13日 5:21
    版主