Question

包含的代码从表单中提取参数并执行存储过程。结果通过列表框对象捕获并显示在表单上。如何解析存储过程的结果，修改值，然后将其提交回来，以便列表框显示更新？

我的存储过程返回用户帐户及其状态列表（1,0）。我想要做的是将状态从1,0更新为true，false，这样当结果显示在表单中时，列表框显示true和false而不是1,0。

Dim paramAcctNo As String
Dim paramProfileId As String
Dim query1 As String
Dim query2 As String

'Populating the form parameters
paramAcctNo = [Forms]![frm_userlookup]![lst_searchresults]
paramProfileId = [Forms]![frm_userlookup]![tb_hidden]

'Executing SP
query1 = "EXEC dbo.sp_ADCON_userDetailView '" & paramAcctNo & "','" & paramProfileId & "'"

'assigning results to listbox to display in form
Me.listbox1.RowSource = query1

Answer 1

如果允许在运行存储过程后更改query1表中的实际值，则可以运行两个简单的UPDATE查询，将1更改为True，将0更改为False。

UPDATE query1 SET [field name that contains the 1] = "True"
WHERE ([field name that contains the 1]="1")

UPDATE query1 SET [field name that contains the 0] = "False"
WHERE ([field name that contains the 0]="0")

您可能遇到的问题是类型不匹配错误。如果包含0和1的字段是数字，则无法将其更新为字符串值。

解析列表框结果和更新值

1 个答案: