|
本帖最后由 22inin 于 2014-10-13 16:26 编辑
有两个数据表1.收款明细(各条明细,用于每套房屋的LISTVIEW取数记录)
2.合同台帐(各条合同综合信息,用于TESTBOX按COMBOX取数)
各有一个合同信息查询按钮
问题 :流水页LISTVIEW提取不了合同页的数据,合同页的LISTVIEW提取不了流水页的数据
求大侠们支招,万分感谢!
Private Sub ComboBox1_Change()
Dim ITM As ListItem
ListView1.ListItems.Clear
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) = ComboBox1.Text Then
Set ITM = ListView1.ListItems.Add()
ITM.Text = Sheets("收款流水").Cells(i, 2)
ITM.SubItems(1) = Sheets("收款流水").Cells(i, 14).Value
ITM.SubItems(2) = Sheets("收款流水").Cells(i, 13)
ITM.SubItems(3) = Sheets("收款流水").Cells(i, 15)
ITM.SubItems(4) = Sheets("收款流水").Cells(i, 16)
ITM.SubItems(5) = Sheets("收款流水").Cells(i, 17)
ITM.SubItems(6) = Sheets("收款流水").Cells(i, 18)
TextBox2 = Sheets("合同台账").Cells(i, 6)
TextBox5 = Sheets("合同台账").Cells(i, 2)
TextBox7 = Sheets("合同台账").Cells(i, 3)
TextBox4 = Sheets("合同台账").Cells(i, 7)
TextBox8 = Sheets("合同台账").Cells(i, 8)
TextBox9 = Sheets("合同台账").Cells(i, 5)
TextBox10 = Sheets("合同台账").Cells(i, 9)
TextBox12 = Sheets("合同台账").Cells(i, 10)
TextBox3 = Sheets("合同台账").Cells(i, 13)
TextBox13 = Sheets("合同台账").Cells(i, 11)
TextBox6 = Sheets("合同台账").Cells(i, 12)
TextBox17 = Sheets("合同台账").Cells(i, 19)
TextBox19 = Sheets("合同台账").Cells(i, 14)
TextBox18 = Sheets("合同台账").Cells(i, 15)
End If
Next i
End Sub
|
|