If Connections.Contains("test") = False
Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\data.mdb;Persist Security Info=False")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SEL ECT * From {主表} where 1=2"
dt = cmd.ExecuteReader(True)
cmd.CommandText = "SEL ECT * From {操作表} where 1=2"
Dim dt2 As DataTable = cmd.ExecuteReader(True)
cmd.CommandText = "SEL ECT * From {压舱水} where 1=2"
Dim dt3 As DataTable = cmd.ExecuteReader(True)
cmd.CommandText = "SEL ECT * From {淡水} where 1=2"
Dim dt4 As DataTable = cmd.ExecuteReader(True)
For Each dr As DataRow In DataTables("主表").DataRows
If dt.Find("sureyid= '" & dr("sureyid") & "'") Is Nothing Then
Dim nr As DataRow = dt.AddNew()
For Each dc As DataCol In DataTables("主表").DataCols
nr(dc.name) = dr(dc.name)
Next
For Each dr2 As DataRow In DataTables("操作表").Select("sureyid= '" & dr("sureyid") & "'")
Dim nr2 As DataRow = dt2.AddNew()
For Each dc2 As DataCol In DataTables("操作表").DataCols
nr2(dc2.name) = dr2(dc2.name)
Next
For Each dr3 As DataRow In DataTables("压舱水").Select("sureyidtimes= '" & dr2("sureyidtimes") & "'")
Dim nr3 As DataRow = dt3.AddNew()
For Each dc3 As DataCol In DataTables("压舱水").DataCols
nr3(dc3.name) = dr3(dc3.name)
Next
Next
For Each dr4 As DataRow In DataTables("淡水").Select("sureyidtimes= '" & dr2("sureyidtimes") & "'")
Dim nr4 As DataRow = dt4.AddNew()
For Each dc4 As DataCol In DataTables("淡水").DataCols
nr4(dc4.name) = dr4(dc4.name)
Next
Next
Next
End If
Next
End If
我把end if放后边了，现在点按钮没反应，目标数据库里也没有应该增加的数据。
加好友 
发短信
Post By：2021/4/6 22:42:00 [只看该作者]
此主题相关图片如下：qq图片20210327092146.png
