用到数据控件DataSet，OleDbConnection，OleDbDataAdapter组合搜索Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click            Dim str As String            D

----------------------------------------------------------------                                       功能：计算单签字               参数：计算单标识码，审核状态               返回：成功与否                        

Label1.Text = DataGrid1.Columns.CountLabel2.Text = DataGrid1.Items.Count这样得到的值：Label1.Text  = 0 ；Label2.Text = DataGrid1.Items.Count的值，有几行就几行 要获得列数呢Label1.Text = DataGrid1.Items(0).Cells.Count

添加引用Microsoft Excel 12.0 Object Library，我这里使用的是Office 2007。有必要的话，需要修改web.config:目的是使用这个账号来运行Excel程序，曾经使用Word 2007在代码中生成XPS文件，因为没有如此修改web.config，初始化Word程序时，得到无权限的异常或者弹出Windows登陆框。代码如下：     

Ucase(string) 将字符串转换为大写。 Val(string) 将代表数字的字符串转换为数值型态，若字符串中含有非数字的内容则会将其去除后，合并为一数字。 Weekday(date) 取的参数中的日期是一个星期的第几天，星期天为1、星期一为2、星期二为3 依此类推。 WeekDayName(number) 依接收的参数取得星期的名称，可接收的参数为1 到7，星期天为1、星期一为2、星期二