先清空列项设置表 然后从列项设置样本表中复制数据到列项设置表 怎么改成SQL语句实现操作?
代码如下:
第一删除符合条件的列项设置数据表内容
DataTables("列项设置").sqlDeleteFor("操作单位 = '"& _usergroup & "'")
DataTables("列项设置").save 可以删除对应数据
第二从样本里面复制数据到列项设置表
output.Show(_usergroup) 可以弹出值
Dim drs As List(of DataRow) =DataTables("列项设置样本").SQL Sel ect("操作单位 = '黔南州'" ) 可以找到对应样本数据
For Each dr As DataRow In drs
Dim dr1 As DataRow = DataTables("列项设置").AddNew
For Each dc As DataCol In DataTables("列项设置").DataCols
dr1(dc.Name) = dr(dc.Name)
dr1("操作单位")=_usergroup
dr1.save
output.Show(dr(dc.Name))
Next
Next
上述代码有没有办法直接采用SQL语句操作的方式 简化代码写法呢?
实现把样本数据表中的内容全部更新到列项设置表中,并且对应写入操作单位的值
[此贴子已经被作者于2020/4/15 13:59:45编辑过]