Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　If IsPostBack Then
　　　　Return
　　End If

　　' テスト用データの作成
　　Dim dt As New Data.DataTable("TEST")
　　dt.Columns.Add("Code", GetType(String))
　　dt.Columns.Add("Name", GetType(String))
　　dt.Rows.Add("1", "AAA")
　　dt.Rows.Add("2", "BBB")
　　dt.Rows.Add("3", "CCC")
　　dt.AcceptChanges()

　　' SPREADの設定
　　Dim cmbbx As New FarPoint.Web.Spread.ComboBoxCellType()
　　cmbbx.DataSource = dt
　　cmbbx.DataTextField = "Name"
　　cmbbx.DataValueField = "Code"
　　cmbbx.UseValue = True
　　FpSpread1.ActiveSheetView.Columns(1).CellType = cmbbx
End Sub

protected void Page_Load(object sender, EventArgs e)
{
　　if (IsPostBack)
　　{
　　　　return;
　　}

　　// テスト用データの作成
　　System.Data.DataTable dt = new System.Data.DataTable("TEST");
　　dt.Columns.Add("Code", typeof(string));
　　dt.Columns.Add("Name", typeof(string));
　　dt.Rows.Add("1", "AAA");
　　dt.Rows.Add("2", "BBB");
　　dt.Rows.Add("3", "CCC");
　　dt.AcceptChanges();

　　// SPREADの設定
　　FarPoint.Web.Spread.ComboBoxCellType cmbbx = new FarPoint.Web.Spread.ComboBoxCellType();
　　cmbbx.DataSource = dt;
　　cmbbx.DataTextField = "Name";
　　cmbbx.DataValueField = "Code";
　　cmbbx.UseValue = true;
　　FpSpread1.ActiveSheetView.Columns[1].CellType = cmbbx;
}