For Each dr As DataRow In Forms("资金日报账户表模板").Controls("table1").Table.DataTable.DataRows
If dr("项目").Indexof("楚楚街") > -1 Then
dr("行别") = "楚楚街"
output.show(dr0("项目"))
elseIf dr("区分") = "银行账户" And dr("项目").length >1 Then
dr("行别") = dr("项目").Substring(0,2)
End If
outPut.show("1")
Next