Question

当我的链在柜台i上并且我想用另一个计数器替换它时，如何删除链的最后一位数？

这是我到目前为止所拥有的：

 For a = 0 To lstbxAdd.Items.Count - 1
            xx = lstbxAdd.Items(a)
            Select Case RTrim(dgvTest.Item(1, i).Value)

                Case xx
                    stFuente.Value = numID.Text 
dgvTest.Item(3, i).Value &= stFuente.Value

Answer 1

你好，我可以最终解决，如果有人有这个问题，我就可以使用该代码

Dim stFuente As New VB6.FixedLengthString(7)
    stFuente.Value = Space(7)
    Dim sCampo As New VB6.FixedLengthString(7)
    Dim a As Integer
    Dim xx As String

    Cursor = Cursors.WaitCursor

    For i = 0 To dgvTest.RowCount - 2
        If Len(RTrim(dgvTest.Item(1, i).Value)) <= 6 Then
            GoTo Cambio

        End If

坎比奥：

        Dim vartotal As String

        For a = 0 To lstbxAdd.Items.Count - 1
            xx = lstbxAdd.Items(a)
            Select Case RTrim(dgvTest.Item(1, i).Value)

                Case xx
                    stFuente.Value = numID.Text

                    vartotal = dgvTest.Item(3, i).Value.Substring(0, 6)
                    vartotal = Mid(vartotal, 1, Len(vartotal) - 1)
                    dgvTest.Item(3, i).Value = vartotal
                    dgvTest.Item(3, i).Value &= stFuente.Value

            End Select
        Next

    Next
    Cursor = Cursors.Default
End Sub

如何使用整数VB删除字符串的最后一位数字

1 个答案: