关于Multiple-Column Combo Box Cell的选择问题

dexteryao

Dim cmbText As New FarPoint.Web.Spread.MultiColumnComboBoxCellType

                  Dim rs1 As New Data.DataTable
                  strSql = "select ID,代码，名称 from tblA"
                  adp = New Data.SqlClient.SqlDataAdapter(strSql, conn)
                  adp.Fill(rs1)

                  cmbText.DataSource = rs1

                  cmbText.DataColumn = 2
                  cmbText.ColumnEditName = "名称"
                  cmbText.DataColumnName = "名称"
                  cmbText.ShowButton = True
                  cmbText.ColumnWidths = {40, 40, 300}

                  fps2.ActiveSheetView.Cells（2，2).CellType = cmbText

希望如下功能：
选择多栏下拉框时，选定的行，其中第一列的值放到 fps2.ActiveSheetView.Cells（2，1)  第二列的值放到 fps2.ActiveSheetView.Cells（2，3)，请问如何实现？
如  选定的值    ID  600  代码  002  值  张三，现在选定张三这一行时，希望把600放到单元格（2，1），把002 放到单元格（2，3）