Office中国论坛/Access中国论坛

标题: 重发请问在列表中我引入的字段名（字符串），出来的却是id号，请各位指教 [打印本页]

作者: noami 时间: 2011-7-20 14:55
标题: 重发请问在列表中我引入的字段名（字符串），出来的却是id号，请各位指教
在noami数据库中窗体“领料”中工程部位下拉列表值确定“分项工程”列表值，当选择工程部位值时，分项工程值为空
查看代码时发现在分项工程名字中所查询的是工程部位的id号而不是工程部位的值来查询判定的

请问怎么解决，谢谢！

Private Sub 工程部位_AfterUpdate()

Dim strsql As String

strsql = "select * from 路基工程 where 路基工程.工程部位 = '" & Me.工程部位 & "'"
Me.分项工程.RowSource = strsql
End Sub

Private Sub 工程部位_Click()
Me.工程部位.Dropdown
End Sub

作者: roych 时间: 2011-7-20 21:07
把里面的*改为相应的字段试试看？
例如：
Private Sub 工程部位_AfterUpdate()

Dim strsql As String

strsql = "select 分项工程 from 路基工程 where 路基工程.工程部位 = '" & Me.工程部位 & "'"
Me.分项工程.RowSource = strsql
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)