正在编写一个程序输出 Word 表格。
Private Function CreaTable() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add("姓名", GetType(String))
        dt.Columns.Add("性别", GetType(String))
        dt.Columns.Add("年龄", GetType(Integer))
        dt.Columns.Add("毕业学校", GetType(String))
        Dim row, row1 As DataRow
        row = dt.NewRow()
        row!姓名 = "小李"
        row!性别 = "男"
        row!年龄 = 22
        row!毕业学校 = " 清华大学"
        dt.Rows.Add(row)
        Return dt
    End Function
这段代码输出过 Word 表格的人应该不陌生。我想实现的是添加变量。
Private Function CreaTable() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add("姓名", GetType(String))
        dt.Columns.Add(变量1, GetType(String))
        dt.Columns.Add("年龄", GetType(Integer))
        dt.Columns.Add(变量2, GetType(String))
        Dim row, row1 As DataRow
        row = dt.NewRow()
        row!姓名 = "小李"
        row!变量1 = "男" '在这里叹号后面直接输入变量就出错。
        row!年龄 = 22
        row!变量2 = " 清华大学" '在这里叹号后面直接输入变量就出错。
        dt.Rows.Add(row)
    End Function
请教各位这个如何解决？初学者，请多多指教，谢谢！


[ 本帖最后由 Rainbow_7 于 2009-12-18 08:57 编辑 ]

这里好冷清啊。比较急，版主不在吗？

还是不行。Return dt 这句是我发帖的时候漏的。
我需要的效果是：
        Dim dt As New DataTable
        Dim bianliang1 As String = TextBox1.Text
        Dim bianliang2 As String = Label25.Text
        dt.Columns.Add("用户", GetType(String))
        dt.Columns.Add(bianliang1, GetType(String))
        dt.Columns.Add("电话", GetType(Integer))
        dt.Columns.Add(bianliang2, GetType(String))
        Dim row1 As DataRow
        row1 = dt.NewRow()
        row1!用户 = "test"
        row1!bianliang1 = TextBox3.Text '运行到此行出错！错误提示：列“bianliang1”不属于表 。
        row1!电话 = "test"
        row1!bianliang2 = TextBox4.Text
        dt.Rows.Add(row1)
        Return dt

是不是叹号后面不能输入变量？有没有其他方法？

解决了！版主。。。我只是举例时候疏忽的。实际上我这里不需要 Integer 类型，全部为 String 就可以了。
只是出错部分与数据类型无关，所以没有注意。多谢版主的指导！谢谢！