0

我正在动态创建 RadioButtonList 并且无法弄清楚如何添加其他文本以显示在单选按钮下。

我的基本代码如下，我希望 sURL 显示在每个生成的单选按钮下。

For i As Integer = 0 To ds.Tables(0).Rows.Count - 1

                Dim iLocationID As Integer = ds.Tables(0).Rows(i).Item("LocationID")
                Dim sStreet As String = ds.Tables(0).Rows(i).Item("AddressStreet")
                Dim sCity As String = ds.Tables(0).Rows(i).Item("AddressCity")
                Dim sState As String = ds.Tables(0).Rows(i).Item("AddressState")
                Dim sZip As String = ds.Tables(0).Rows(i).Item("AddressPostalCode")
                Dim sName as String = ds.Tables(0).Rows(i).Item("Name")
                Dim dsContact As New DataSet

                Dim sURL As String = ""
                sURL = "<a href='http://www.google.com/maps?f=q&source=s_q&hl=en&geocode=&q=" & sStreet & "+" & sState & "+" & sZip & "' target='_blank'>" & sStreet & " " & sCity & " " & sState & ", " & sZip & "</a>"

                Dim dDistance As Decimal = Math.Round(ds.Tables(0).Rows(i).Item("Distance"), 1)
                Dim sDistance As String
                If dDistance > 1 Then
                    sDistance = dDistance & " Miles Away"
                Else
                    sDistance = dDistance & " Mile Away"
                End If
                sURL += " " & sDistance
                sURL += " Phone: " & sContactPhone

                rblVendorLocations.Items.Add(New ListItem(sName, iLocationID))
            Next
4

1 回答 1

0

ListItem 构造函数的第一个参数是显示在单选按钮旁边的文本，如果您希望它是 sURL，则传递它而不是 sName。

如果您想以某种特定方式设置样式，也可以将 html 作为此参数传递，例如

ListDeliveryFrequency.Items.Add( _
              New ListItem("<div>" + sName +"</div> <div>" + sUrl + "</div>", _
                           iLocationID))
于 2009-10-07T22:11:09.577 回答