此主题相关图片如下：微信截图_20190717094317.png
老师，画框中的2段代码冲突了
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")
Next
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("项目"))
加好友 
发短信
Post By：2019/7/17 9:44:00 [只看该作者]
此主题相关图片如下：gif.gif