求助：列表框、文本框与主窗体联动的方法

szbalh　发表于：2011-06-12 10:52:36 　

复制

详细问题描述在附件中，烦请百忙中予以解答，谢谢！

点击下载此附件

Top

曹光耀发表于：2011-06-12 11:39:35

'添加列表框更新后事件cgy2011-6-12

Private Sub LBK_AfterUpdate()

Me.Text90 = Right(Me.LBK, 4)
Forms![货品出退].Form.RecordSource = "SELECT 货品出退明细.*, 厂商.中文, 厂商.联数 FROM 厂商 INNER JOIN 货品出退明细 ON 厂商.CUS_NO = 货品出退明细.CS_ID where [出仓单号]='" & Me.LBK.Column(1) & "'"
End Sub

单击列表框,请查看修改后的效果,

点击下载此附件

Top

szbalh 发表于：2011-06-12 11:58:05

第一个问题很好解决了，非常感谢。

第二个问题，抱歉没有描述清楚。

需求不是 ' Me.Text90 = Right(Me.LBK, 4)

期望是：

Text90 录入某销货单“关键字”后，主窗体能联动变更。

如，录入： “9002”后---> 主窗体销货单转至 “TSA110609002”

“1061”后--->................... “TSA11061103”

“601”后--->.................. “TSA110601001”

即实现文本框更新后与主窗体的联动。

请指点，谢谢！

Top

曹光耀发表于：2011-06-12 12:50:46

举一反三,在文本框的更新后事件中加入代码:

Private Sub Text90_AfterUpdate()
Forms![货品出退].Form.RecordSource = "SELECT 货品出退明细.*, 厂商.中文, 厂商.联数 FROM 厂商 INNER JOIN 货品出退明细 ON 厂商.CUS_NO = 货品出退明细.CS_ID where Right([出仓单号],4)='" & Me.Text90 & "'"
End Sub

Top

szbalh 发表于：2011-06-12 13:31:17

筛选条件可能不是固定的后4位： where Right([出仓单号],4)

满足条件即可,如：

“1061”-->“TSA11061103”

“1103”-->“TSA11061103”

大致意思是：where [出仓单号] like '*' & Me.Text90 & '*'"

但语句有问题，不能执行。

请帮忙修正，谢谢！

Top

szbalh 发表于：2011-06-12 14:48:44

请曹老师支招