[ASP.net][javascript]RadComboBox取出選取欄位的值

 <script type="text/javascript">

            function OnClientSelectedIndexChanged(sender, eventArgs) {

                var item = eventArgs.get_item().get_attributes()._data.BNKNM;

                document.getElementById("Q_txtBNKNM").value = item;

            }

    </script>

<ILS:ILSRadComboBox ID="Q_cbxBNKID" runat="server" ColumnName="BNKID" Filter="Contains" OnClientSelectedIndexChanged="OnClientSelectedIndexChanged" Onchange="OnClientSelectedIndexChanged">

                            <HeaderTemplate>

                                <table style="width: 150px" cellspacing="0" cellpadding="0">

                                    <tr>

                                        <td style="width: 25px;">代號

                                        </td>

                                        <td style="width: 125px; align-items: center;">名稱

                                        </td>

                                    </tr>

                                </table>

                            </HeaderTemplate>

                            <ItemTemplate>

                                <table style="width: 150px" cellspacing="0" cellpadding="0">

                                    <tr>

                                        <td id="td_cbxBNKID" style="width: 25px;">

                                            <%# DataBinder.Eval(Container, "Attributes['BNKID']")%>

                                        </td>

                                        <td id="td_cbxBNKNM" style="width: 125px;">

                                            <%# DataBinder.Eval(Container, "Attributes['BNKNM']")%>

                                        </td>

                                    </tr>

                                </table>

                            </ItemTemplate>

                        </ILS:ILSRadComboBox>

------------------------------------下面是連資料庫產生值

DataTable dt = DKHIFIComManager.Get_DKHIFI_USP_COM_FBNKID_AS01("", "");

                DataRow dr = dt.NewRow();

                dr["BNKID"] = string.Empty;

                dr["BNKNM"] = string.Empty;

                dt.Rows.InsertAt(dr, dt.Rows.Count);

                foreach (DataRow dataRow in dt.Rows)

                {

                    RadComboBoxItem item = new RadComboBoxItem();

                    item.Text = dataRow["BNKID"].ToString();//combobox

                    item.Value = dataRow["BNKID"].ToString();

                    string BNKID = (string)dataRow["BNKID"];

                    string BNKNM = (string)dataRow["BNKNM"];

                    item.Attributes.Add("BNKID", BNKID);

                    item.Attributes.Add("BNKNM", BNKNM);

                    Q_cbxBNKID.Items.Add(item);

                    item.DataBind();

                }

[EXCEL]巨集範例

Sub HCUP160P_AUTO()

'

' HCUP160P_AUTO 巨集

'

'

    Rows("1:19").Select ' 選取1-19row

    Range("A19").Activate

    Selection.Delete Shift:=xlUp '刪除選取的row

    

    

    Columns("A:AE").Select

    With ActiveWindow

        .SplitColumn = 0

        .SplitRow = 0

    End With

    Selection.UnMerge

    

    Cells.Select

    With Selection

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlLTR

        .MergeCells = False

    End With

    Rows("1:1").Select

    With ActiveWindow

        .SplitColumn = 0

        .SplitRow = 1

    End With

    ActiveWindow.FreezePanes = True

    

    

    Dim i As Long

    i = ActiveSheet.UsedRange.Rows.Count '取得現在工作表有幾個row

    Dim strD As String

    strD = "Z" + Str(i)

    strD = Replace(strD, " ", "")  '算出右下角最後一格

    

    '依照G欄做排序

    Columns("G:G").Select

    ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear

    ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range("G1"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort

        .SetRange Range("A2:" + strD) '排序範圍擴大

        .Header = xlNo

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Columns("A:Z").EntireColumn.AutoFit '完成後自動欄寬

End Sub