Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
Dim dr As DataRow = vr.tag
Dim lr As WinForm.ListViewRow = e.Sender.Current
'MessageBox.Show("你双击的是:" & lr.Text & " " & lr.Group)
Dim n As String = "表" & lr.Group.SubString(1,1)
Dim ps As Integer = Tables(n).FindRow(dr)
If ps >= 0 Then
Tables(n).Position = ps
Forms("窗口2").Open()
Forms("窗口2").Controls("Label2").text = n
Forms("窗口2").Controls("Label1").text = Tables(n).Current(5)
For i As Integer = 8 To Tables(n).Cols.Count -1
Dim lb As String = "bt" & Format(i-5,"00")
Forms("窗口2").Controls("bt" & Format(01,"00")).text = Tables(n).Cols(5).Name & ":"
Forms("窗口2").Controls("bt" & Format(02,"00")).text = Tables(n).Cols(6).Name & ":"
Forms("窗口2").Controls(lb).text = Tables(n).Cols(i).Name & ":"
Dim tb As String = "TextBox" & i-5
Forms("窗口2").Controls("TextBox" & "1").Value = Tables(n).Current(7) & "" & Tables(n).Current(5)
Forms("窗口2").Controls("TextBox" & "2").Value = Tables(n).Current(6)
Forms("窗口2").Controls(tb).Value = Tables(n).Current(i)
Next
End If
双击ListView 行，怎么不弹窗口？
加好友 
发短信
Post By：2020/2/17 17:22:00 [只看该作者]
