Here's an example on how to add Table to DataSet:

Dim ds As New DataSet()
Dim dt As New DataTable("MyTable")
Dim dr As DataRow
dt.Columns.Add(New System.Data.DataColumn("Column1", GetType(Integer)))
dt.Columns.Add(New System.Data.DataColumn("Column2", GetType(Integer)))


dr = dt.NewRow()
dr(0) = 1
dr(1) = 2


'continue adding rows here
'add the Row values to Table
dt.Rows.Add(dr)
'add the Table to DataSet
ds.Tables.Add(dt)

vb.net 手動增加DataTable

• Jun 15 Tue 2010 19:45

• VB.NET- 手動建立DataTable

分享:     

 

無論是數據的整理或是由伺服器撈下來的資料
總需要填入DataTable 中作彙整並方便程式操作

當然
如果是由資料庫撈下來的資料
只要丟進表格中就大功告成
但若是要手動輸入資料而資料量不大
並不需要進資料庫時呢？

那就手工做一個吧!!
以下介紹如何『純手工打造黃金DataTable 』（哈!!）

'(1) 建立空白資料表格DataTable
'請先引用 System.Data 命名空間
'因為 DataTable 是被定義在該命名空間中

DataTable dt = new DataTable();'建立資料表--定義dt為一資料表 並實體化


'(2) 建立欄位資訊
dt.Columns.Add("編號");
dt.Columns.Add("姓名");
dt.Columns.Add(" 電話");


'(3)塞資料

'由於Row的建立，必須取出DataTable的欄位資訊'所以不可以使用new來建立空白的 Row
'必須透過DataTable的NewRow()方法來取得一筆有欄位資訊的Row
'取出新的Row後，填入適當的資料
'再透過 DataTable中的Rows集合裡的Add()方法將Row附加到DataTable中。

DataRow row = dt.NewRow();
row["編號"]=1;
row["姓名"]="小豬";
row["電話"]=" (07)727-5246";
dt.Rows.Add(row);


'(4)資料呈現
'在網頁中拉一個Gridview控制項(Form則改用DataGridView）

Gridview.DataSource = dt '使用Gridview呈現表格

資料來源：古埃及法老的金字塔

上下午 轉為 24小時

Convert.ToDateTime(obj).ToString("yyyy/MM/dd HH:mm:ss")

取得月份有幾天

C#
int 這個月的天數 = DateTime.DaysInMonth(年,月);

VB
Dim 這個月的天數 As Integer = DateTime.DaysInMonth(年,月)

新莊頤品大飯店

新莊 頤品大飯店 (雲朗觀光 http://www.ldcgroup.com/?Psn=6085 ，君品、翰品的姊妹店)

這次婚宴舉辦在7樓香蘊廳(官方說法最大可以容納80桌，經由我實際參觀過，的確可以容納八十桌，但會非常擠，建議不超過50桌)，如需要大容量廳也可以打通7樓的兩個廳(打通後會有兩根柱子)。

香蘊廳特色:目前應該是全台第一間三面環繞LED牆，中央舞臺有五百吋的LED牆，場地無柱方正，有兩個大門可以提供進出，新人進場建議走L型進場，提供專屬的新娘休息室(在香蘊廳旁有專屬電梯可以抵達，電梯可以直達B2與新娘休息室)，下圖為飯店服務人員所提供七樓打通兩廳後的照片。

 
 



 提供三種桌巾挑選 君品紫、愛馬仕橘、頻果綠

 

 橘色:感覺很像藏傳彿教的感覺

 紫色: 莊重的感覺

蘋果綠 : 活潑的感覺

我們是選擇蘋果綠




  依你所選擇的顏色搭配婚宴佈置的顏色

===========================菜色部分===========================

這次我們選擇的是15990(+10%)的菜色，試菜的心得是帝王蟹要自己用很麻煩，中看不重吃的菜，甜湯太甜(可以調整)，法式甜點集(很另人失望...)，除此之外都很好吃，要給評分的話我給85分，吃過的喜宴中算是第二好吃的，至於第一好吃的就...在此不多說。

最後我們有更改幾道菜，因為長輩不吃牛所以我們把牛排改德國豬腳(降級，也可以升級為羊排，但需補差價400元/桌)，童雞升級烏骨雞，說到這裡不得不說頤品真的很難凹東西，原本我們是打算降級兩道菜(旭蟹油飯降級鰻魚油飯)，想說降級兩道菜有價差產生想凹一些東西，最後真的很硬而且與她們的業務經理有點不愉快，所以到最後就一升一降收場。我們遇到的業務經理真的很不推，這裡就不說明是哪位了(需要的話私下在說)，目前進度在安排當天的婚宴流程，這次遇到的婚宴企劃就感覺很不錯，所以還是需要運氣的...待續

使用Datatable加入欄位、新增欄位各資料列

建立datatableDim mytable As New DataTable

建立欄位Dim mycolumn As New DataColumn

設定 DataColumn物件的各個屬性以定義欄位的結構描述mycolumn.DataType = System.Type.GetType("System.Int32")

將欄位加入至欄位集合中mytable.Columns.Add(mycolumn)

呼叫資料列集合(亦即DataRowCollection)的add方法將已指派資料值的DataRow物件新增至資料列集合中。

建立新的DataRow對象，並添加到DataTable中mytable.Rows.Add(mytable.NewRow())
mytable.Rows.Add(mytable.NewRow())

將資料值將指派給新資料列的各個欄位mytable.Rows(0)(0) = 1
mytable.Rows(1)(0) = 2

copy from:  http://kennyfan88.pixnet.net/blog/trackback/ff0d96e5a0/84881604

Server.UrlDecode("XXXXXXXXXXXX")

Private Sub getArgDict(ByRef oArgDict As Generic.Dictionary(Of String, Object))
        Try


            oArgDict.Add("TAGNO", Request.QueryString("TagNo"))
            oArgDict.Add("rptid", Request.QueryString("rptid"))
            oArgDict.Add("txtDateStart", Request.QueryString("start"))
            oArgDict.Add("txtDateEnd", Request.QueryString("end"))
            oArgDict.Add("TagNo", Request.QueryString("TagNo"))
   
            If IsNothing(Request.QueryString("UniqueContent")) = True Then
                oArgDict.Add("UniqueContent", Server.UrlDecode(Request.QueryString("Content")))
            Else
                oArgDict.Add("UniqueContent", Server.UrlDecode(Request.QueryString("UniqueContent")))
            End If


            oArgDict.Add("ddlLevel", Request.QueryString("ddlLevel"))
            If Me.txtResp.Text <> "全部責任區" Then
                oArgDict.Add("RespArea", Request.QueryString("RespArea"))
            Else
                oArgDict.Add("RespArea", "")
            End If

        Catch ex As Exception
            Utility.handleException(ex)
            Throw ex
        End Try
    End Sub