怎么实现查询后双击内容填充到到窗体文本框，望各位大神指教

58668

由于工作需要要想做一个业务管理系统。已经实现保存功能，现在不知怎么实现查询后双击内容填充到到窗体文本框，如附件。望各位大神指教

WANT-T

用双击事件就可以了

58668

WANT-T 发表于 2024-6-27 14:43
用双击事件就可以了

是想双击后根据内容自动填充到窗体文本框里面，一对一能做出来 ，但是一个业务存在多个项目种不知怎么写。望指教，感谢。

Qs18

Private Sub ListView1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ReDim arr(1 To 1, 0 To ListView1.ColumnCount - 1)
With Me.ListView1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then ' 检查当前项是否被选中
           For j = 0 To UBound(arr, 2)
                arr(1, j) = .List(i, j)
           Next
        End If
    Next i
End With
With 业务登记窗体
.TextBox6.Value = arr(1, 0): .TextBox98.Value = arr(1, 1): .ComboBox3.Value = arr(1, 2): .ComboBox9.Value = arr(1, 3)
.TextBox97.Value = arr(1, 4):  .TextBox42.Value = arr(1, 5): .TextBox46.Value = arr(1, 6)
End With
End Sub

Qs18

不知道是不是您想要得到的效果

Qs18

试试.......

58668

Qs18 发表于 2024-6-27 15:30
试试.......

非常感谢！但是填充维修项目工时费用那里好像不行 ，我就是卡在这里了，不知怎么解决。

58668

Qs18 发表于 2024-6-27 15:28
不知道是不是您想要得到的效果

是这样子，但是填充维修项目工时费用那里怎么写，求指教 ，谢谢

feilanga

维修费用那里就不该用那么多文本框来做。不觉得傻吗？

Qs18

这样吗？.................