[求助]人工数据填充代码，运行没反应，请专家看看，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

是不是标红的地方有问题，我的思路是：符合责任单位和区分两项的，才能进行填充。当我把“and”换成“or”,只填充“加减分”内容，不填写“责任单位”的内容。谢谢

Dim Cols1() As String = {"总序号","序号","六项行动","分项内容","考评项目"}

Dim Cols2() As String = {"总序号","序号","六项行动","分项内容","考评项目"}

For Each dr1 As DataRow In DataTables("六大行动模板").Select("[责任单位] = '%" & e.form.controls("市局单位").Text & "%' and [区分] = '加减分'")

'For Each dr1 As DataRow In DataTables("六大行动模板").Select("区分 like '%" & e.form.controls("区分").Text & "%'or [责任单位] = '%" & e.form.controls("市局单位").Text & "%' And [区分] ='加减分'")

Dim dr2 As DataRow = Tables("六大行动_汇报").DataTable.AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

主题：[求助]人工数据填充代码，运行没反应，请专家看看，谢谢