专家坐堂-代码冲突Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dr0 As DataRow = Forms("资金日报账户表模板").Controls("table1").Table.DataTable.DataRows(2)

Dim a As String = Rand.Next(99) &"工行-11"

output.show(a)

dr0("项目") = a

output.show(dr0("项目"))

For Each dr As DataRow In Forms("资金日报账户表模板").Controls("table1").Table.DataTable.DataRows

If dr("区分") = "银行账户" And dr("项目").length >1 Then

dr("行别") = dr("项目").Substring(0,2)

End If

outPut.show("0")

If dr("项目").Indexof("楚楚街") <> -1 Then

dr("行别") = "楚楚街"

output.show(dr0("项目"))

End If

outPut.show("1")

output.show(dr0("项目"))

Forms("资金日报账户表模板").Controls("table1").Table.DataTable.save()

output.show(dr0("项目"))

Forms("资金日报账户表模板").Controls("table1").Table.DataTable.loadfilter = "分销商 = \'成都\'"

Forms("资金日报账户表模板").Controls("table1").Table.DataTable.load(False)

output.show(Date.now)

Dim dr1 As DataRow = Forms("资金日报账户表模板").Controls("table1").Table.DataTable.DataRows(2)

output.show(dr1("项目"))