列表框的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

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

一点通

最好将例子及最终结果上传,以便让别人帮你解决

雨农

例子已上传.请帮忙

雨农

怎么没人回答呢.例子就在一楼

andymark

试试:

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

andymark

雨农

Me.v_lisource.AddItem rs("blnumber")(i, 0) & ";" & rs("operator")(i, 1)

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

雨农

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

用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)
区别吗?

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

andymark

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


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

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

雨农

一列一个字段.

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

希望再次赐教.感谢

结果图:

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