Question

我有以下简单的命令：

me.textbox1.databindings.clear
me.textbox1.databindings.add("text",TicketsBindingSource,"TicketSubject")

命令成功执行，我可以在文本框中看到标题，但是一旦我点击文本框1，光标的位置总是移动到位置0而不是我单击的文本框的区域。例如，我的文本框具有以下文本："Hello World"。如果我在文本框中单击字母W或我点击任何地方的鼠标，则光标移动到0索引。例如。在开始时，为了向左或向右移动光标，我必须使用键盘箭头键进行操作。

有人知道如何解决这个问题吗？

public sub LoadTicket(byval TicketID as integer)

    Dim CmdString As SqlClient.SqlCommand = New SqlClient.SqlCommand("Select * from CRMTicketDetails where ID=" & TicketID, ConnestionString)

    TicketTA.SelectCommand = CmdString
    TicketDS.Clear()
    TicketTA.Fill(TicketDS, "MyTable")
    TicketsBindingSource.DataSource = TicketDS.Tables("MyTable")
    TicketBuilder.DataAdapter = TicketTA 

    me.textbox1.databindings.clear
    me.textbox1.databindings.add("text",TicketsBindingSource,"TicketSubject")

End Sub

Answer 1

好吧，我终于跟踪了我的问题，这很奇怪。我的表单有以下设置

        With Form_
            .TopLevel = False
            .MdiParent = MainForm
            .Parent = MainForm.SplitContainer1.Panel2
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
            .Dock = DockStyle.Fill
            .Show()
            .BringToFront()
        End With

修复问题的简短版本

form.borderstyle=none

数据绑定后，TextBox光标位置始终为0

1 个答案: