Office中国论坛/Access中国论坛

标题: 列表框的additem方法的高级使用 [打印本页]

作者: 雨农 时间: 2006-4-29 20:54
标题: 列表框的additem方法的高级使用
列表框中加记录.不知道如何把一条记录的几个字段放在列表框行中的不同列上.

请指教.下面是写好的.但只能放一个字段.我感得应该在Me.v_lisource.AddItem rs("blnumber")(i, 1) 后面加上rs("***")(i,x)之类的.

最终结果请看图.并且左右两边的列表的记录都可以一行行(现在一行有4列)地左右对换称动

Me.v_lisource.RowSourceType = "value list"
sql = "select blnumber,shipper,deliveryagent,portofloading,placeofdelivery,operator from billpdox where jobnumber='" & Forms!export_job!v_general_jobnumber.Value & "'"
Set rs = CurrentDb().OpenRecordset(sql)
If rs.EOF Then
      Exit Sub
End If
rs.MoveFirst
      i = 0
While Not rs.EOF
      Me.v_lisource.AddItem rs("blnumber")(i, 1)

      rs.MoveNext
      i = i + 1
Wend
[attach]17468[/attach]
[attach]17471[/attach]

[此贴子已经被作者于2006-4-29 15:24:38编辑过]

作者: 一点通 时间: 2006-4-29 21:20
最好将例子及最终结果上传,以便让别人帮你解决

作者: 雨农 时间: 2006-4-30 01:30
例子已上传.请帮忙

作者: 雨农 时间: 2006-4-30 03:37
怎么没人回答呢.例子就在一楼

作者: andymark 时间: 2006-4-30 04:54
试试:

Me.v_lisource.AddItem rs("blnumber")(i, 1) & ";" & rs("shipper")(i, 2)

作者: andymark 时间: 2006-4-30 06:06
[attach]17477[/attach]

作者: 雨农 时间: 2006-5-1 01:43
Me.v_lisource.AddItem rs("blnumber")(i, 0) & ";" & rs("operator")(i, 1)

哦.原来加上";"就OK.谢谢啊

作者: 雨农 时间: 2006-5-6 21:05
还是没达到目的.我的意思是列表框的每一列存放表中的一个字段.并不是用";"隔开.把所有所选的所有字段放在第一列中.

用Me.v_lisource.AddItem rs("blnumber")(i, 0) & ";" & rs("operator")(i, 1) & ";" & rs("portofloading")(i, 2) & ";" & rs("placeofdelivery")(i, 3)

和

用 Me.v_lisource.AddItem rs("blnumber")(i, 0) & "/" & rs("operator")(i, 1) & "/" & rs("portofloading")(i, 2) & "/" & rs("placeofdelivery")(i, 3)
区别吗?[attach]17576[/attach]

[此贴子已经被作者于2006-5-6 13:21:30编辑过]

作者: andymark 时间: 2006-5-6 21:24

以下是引用雨农在2006-5-6 13:05:00的发言：

还是没达到目的.我的意思是列表框的每一列存放表中的一个字段.并不是用";"隔开.把所有所选的所有字段放在第一列中.

不太明你的意思,你是把列表框选中的列放在表中的一个字段,还是放在同一个列中

作者: 雨农 时间: 2006-5-6 22:40
一列一个字段.

你使用Me.v_lisource.AddItem rs("blnumber")(i, 0) & ";" & rs("operator")(i, 1)这一句话.只是作到了把字段1 blnumber,字段2 operator用";"合并后放在同一列上.我要的结果是把这两个字段分开来放到两列中.

希望再次赐教.感谢

结果图:
[attach]17578[/attach]

[此贴子已经被作者于2006-5-6 14:41:10编辑过]

作者: 雨农 时间: 2006-5-7 03:17
希望再次赐教.感谢

作者: andymark 时间: 2006-5-7 03:44
我不明你最终的用意是什么,你要把列表框的数据保存到表吗

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