DataTable绑定Table控件中的数据(vb.net之经典应用)

// 把tbl传递过来时一定要指定其类型，不然会出现对象未实例化

Subbind_table() Subbind_table(ByValtblAsDataTable)
DimcnAsNewSqlClient.SqlConnection(P_Con)
DimcmdAsSqlClient.SqlCommand=cn.CreateCommand
DimadptAsNewSqlClient.SqlDataAdapter(cmd)
DimtblAsNewDataTable//数据绑定，绑定Table表
cmd.CommandTimeout=3000
Try
cmd.CommandText=str
adpt.Fill(tbl)
DimiAsInteger
DimjAsInteger
DimtrblmAsDataRow=tbl.NewRow先新增一行，并给该行的元素赋初始值
trblm.Item(0)="合计"
trblm.Item(1)=tbl.Compute("sum(inum)","")
trblm.Item("heji")=tbl.Compute("sum(heji)","")//对heji字段这一列，进行求和运算运算
trblm.Item("zdinum")=tbl.Compute("sum(zdinum)","")
trblm.Item("zdiprice")=tbl.Compute("sum(zdiprice)","")
trblm.Item("zdheji")=tbl.Compute("sum(zdheji)","")
trblm.Item("ewinum")=tbl.Compute("sum(ewinum)","")
trblm.Item("ewiprice")=tbl.Compute("sum(ewiprice)","")
trblm.Item("ewheji")=tbl.Compute("sum(ewheji)","")
trblm.Item("xpinum")=tbl.Compute("sum(xpinum)","")
trblm.Item("xpiprice")=tbl.Compute("sum(xpiprice)","")
trblm.Item("xpheji")=tbl.Compute("sum(xpheji)","")
tbl.Rows.InsertAt(trblm,0)//将合计插入第一行,插入到DataTable对象中（指定位置的插入操作）

Fori=0Totbl.Rows.Count–1　　　　//统计当前dataTable表中所有行的个数
DimtrAsNewUI.WebControls.TableRow　　　//（此处定义的是一个TableRow控件）
Forj=0Totbl.Columns.Count–1　　　//统计当前dataTable表中列的个数
DimthecellAsNewUI.WebControls.TableCell//此处定义了一个单元格
thecell.Font.Size=FontUnit.Point(9)
thecell.BorderStyle=BorderStyle.Solid//给每一个单元格的属性赋值
thecell.BorderWidth=Unit.Point(1)　　　//指定了当前表的边框宽度，控制表的美观
IfIsNumeric(IIf(tbl.Rows(i)(j)IsDBNull.Value,"",tbl.Rows(i)(j)))=TrueThen
thecell.HorizontalAlign=HorizontalAlign.Right（指定对齐方式为右对齐）
//指定表中内容的对齐方式，用IF语句判断是数字类型还是文字类型，如为数字类型，则左对齐，反之，右对齐
Else
thecell.HorizontalAlign=HorizontalAlign.Left（指定对齐方式为左对齐）
EndIf
thecell.Wrap=False
thecell.Height=Unit.Pixel(20)//指定当前单元格的高度和宽度
thecell.Width=Unit.Pixel(80)
thecell.RowSpan=1
Ifi=0And(j=4orj=7orj=10)Then
thecell.Text=""
Else
//本循环体中最重要的一句代码
thecell.Text=IIf(tbl.Rows(i)(j)IsDBNull.Value,"",tbl.Rows(i)(j))
EndIf
tr.Cells.Add(thecell)　//往TableRow控件添加单元格操作，
//循环一次添加一行。直到DataTable中数据全部读出为止，这样就实现了将数据虚拟表（DataTable）中的数据全部绑定在Table控件上
Next
Table2.Rows.Add(tr)　　　//往Table控件中添加行操作
Next
EndSub

//***************************************下方是一个比较全的例子****************************************

Dim cn As New SqlClient.SqlConnection(P_Con)

Dim cmd As SqlClient.SqlCommand = cn.CreateCommand

Dim adpt As New SqlClient.SqlDataAdapter(cmd)

Dim tbl As New DataTable

cmd.CommandTimeout = 3000

Try

cmd.CommandText = str

adpt.Fill(tbl)



Dim tr As DataRow = tbl.NewRow ' 生成一个空的数据行(DataTable类型)



tr.Item( " cDepCode " ) = ""

tr.Item( " cDepName " ) = ""

tr.Item( " 客户经理 " ) = " 合计 "

tr.Item( " 累计预算营销费用 " ) = tbl.Compute( " sum(累计预算营销费用) " , "" )

tr.Item( " 累计实际营销费用 " ) = tbl.Compute( " sum(累计实际营销费用) " , "" )

tr.Item( " 余额 " ) = tbl.Compute( " sum(余额) " , "" )

tr.Item( " 实际销额 " ) = tbl.Compute( " sum(实际销额) " , "" )

tr.Item( " 实际销量 " ) = tbl.Compute( " sum(实际销量) " , "" )

tr.Item( " 实际提取营销费 " ) = tbl.Compute( " sum(实际提取营销费) " , "" )

tr.Item( " 实际广告费用 " ) = tbl.Compute( " sum(实际广告费用) " , "" )

tr.Item( " 实际营销费用 " ) = tbl.Compute( " sum(实际营销费用) " , "" )

tr.Item( " 累计营销费用余额 " ) = tbl.Compute( " sum(累计营销费用余额) " , "" )

tr.Item( " 定单销额 " ) = tbl.Compute( " sum(定单销额) " , "" )

tr.Item( " 定单销量 " ) = tbl.Compute( " sum(定单销量) " , "" )

tr.Item( " 订单提取营销费 " ) = tbl.Compute( " sum(订单提取营销费) " , "" )

tr.Item( " 合计 " ) = tbl.Compute( " sum(合计) " , "" )

tr.Item( " 扣除项目 " ) = tbl.Compute( " sum(扣除项目) " , "" )

tr.Item( " 系统已有余额 " ) = tbl.Compute( " sum(系统已有余额) " , "" )

tr.Item( " 本月追加进系统 " ) = tbl.Compute( " sum(本月追加进系统) " , "" )

tr.Item( " 小计 " ) = tbl.Compute( " sum(小计) " , "" )

tr.Item( " 列入营销费预算 " ) = tbl.Compute( " sum(列入营销费预算) " , "" )



tbl.Rows.InsertAt(tr, 0 ) ' 将合计插入到第一行，此处的0指的是数据插入的位置

bind_table(tbl)

Catch ex As Exception

Throw ex

End Try

EndSub

// ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Subbind_table() Subbind_table(ByValtblAsDataTable)

DimiAsInteger

DimjAsInteger

Fori=0Totbl.Rows.Count-1

DimtrAsNewUI.WebControls.TableRow

Forj=2Totbl.Columns.Count–1//j从2读数据，是因为前两条记录设为空

DimthecellAsNewUI.WebControls.TableCell

thecell.Font.Size=FontUnit.Point(9)//字体的单位是fontunit开始

thecell.BorderStyle=BorderStyle.Solid

thecell.BorderWidth=Unit.Point(1)

IfIsNumeric(IIf(tbl.Rows(i)(j)IsDBNull.Value,"",tbl.Rows(i)(j)))=TrueThen

thecell.HorizontalAlign=HorizontalAlign.Right

Else

thecell.HorizontalAlign=HorizontalAlign.Left

EndIf

thecell.Wrap=False

thecell.Height=Unit.Pixel(20)

thecell.Width=Unit.Pixel(100)

thecell.RowSpan=1

thecell.Text=IIf(tbl.Rows(i)(j)IsDBNull.Value,"",tbl.Rows(i)(j))//给单元格赋值

tr.Cells.Add(thecell)//使用循环读出Table表中所有的数据并转传给Table控件的单元格来接收

Next



Table2.Rows.Add(tr)//Table2为服务器控件Table的ID

Next



EndSub

下方的图是运行效果