主题：[求助]根据职务列导出对应姓名报表

您功底深厚，就是有时有点武断

我按您的方法试试，再请教吧

请教 有点甜 老师，我用下面的代码可以 导出“部门1经理”，其他职务一定要一个职务一个IF判断吗，能不能简化代码？

 

 

Dim dt As Table = Tables("名册")
Dim Book As New XLS.Book(ProjectPath & "Attachments\职务表.xls")
Dim fl As String = ProjectPath & "Reports\职务表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For r As Integer = 0 To dt.Rows.Count - 1 '
       If dt.rows(r)("职务") = "部门1经理" Then
        Sheet(4,2).Value =  dt.rows(r)("姓名")
    End If
Next
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 看12楼。在模板里面写变量，在foxtable里面赋值。

请教 有点甜 老师，我用下面的代码，错在哪呢？

 

 

Dim dt As Table = Tables("名册")
Dim Book As New XLS.Book(ProjectPath & "Attachments\职务表.xls")
Dim fl As String = ProjectPath & "Reports\职务表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For r As Integer = 0 To dt.Rows.Count - 1 '
    For y As Integer = 1 To 30
        For x As Integer = 1 To 30
            If Sheet(x, y).text = dt.rows(r)("职务") Then
                Sheet(x + 1,y).Value = dt.rows(r)("姓名")
            End If
        Next
    Next
Next

Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 不要用这种啊，看12楼看14楼啊

 在模板加入一个 [!变量]

 

 然后赋值 vars("变量") = 123

 

 这么简单也不会么

转不过弯

 17楼也已经告诉你答案了啊。