SQLTable表
Dim r As Row = Tables(e.form.name & "_Table1").Current
Dim cmd As New SQLCommand
'Dim nm As String = r("立项编号")
Dim nm As String = r("项目名称")
Dim dt As DataTable
Dim Cols1() As String = {"项目名称","立项编号","简码","资质","区域"} '原数据
Dim Cols2() As String = {"项目名称","立项编号","简码","资质","区域"} '目标数据
cmd.C
cmd.CommandText = "S ELECT * From {XM_在建项目} Where 项目名称 = '" & nm & "'"
If cmd.ExecuteScalar > 0 Then
Messagebox.Show("在建项目已经存在【" & r("项目名称") & "】","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Exit Function
End If
dt = cmd.Execu teReader(True)
For Each dr1 As DataRow In dt.DataRows
MessageBox.Show(1) '不行
Dim dr2 As DataRow = DataTables("XM_在建项目").AddNew()
MessageBox.Show(2) '不行
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
MessageBox.Show(3) '不行
dr2.Save '保存新增数据
Next
红色区域代码无效，大神帮忙看看
[此贴子已经被作者于2019/4/21 11:03:26编辑过]
加好友 
发短信
Post By：2019/4/21 10:54:00 [只看该作者]
