主题：数组

 

所贴出的代码没有错。请贴出完整代码。

 

 

删除这个代码

 

.CreateFromDataTable(dt1,False,"" ,"",aa)

 

或者改成

 

Dim nmm() As String = {"BX","JK","WH","GZ"}
Dim nms1() As String = {"项目编号,报销类型,费用类型,费用金额,发生时间,报销事由","项目编号,用途,打卡人姓名,借款金额,备注","项目编号,费用类别,金额,项目描述,打卡人姓名,备注","员工姓名,代扣金额,应领金额,合计金额,备注"}

Dim bb() As String
For i As Integer = 0 To nmm.Length - 1
    If e.getValues("key").contains(nmm(i)) Then
        cmd.CommandText = "se lect * from 报销明细 where 申请编号  = '" & e.GetValues("key") & "'"
        dt1 = cmd.ExecuteReader
        bb = nms1(i).Split("','")
    End If
Next

 

.CreateFromDataTable(dt1,False,"" ,"", bb)