都没有执行sql:
http://www.foxtable.com/webhelp/topics/0696.htm
cmd1.CommandText = "U PDATE {科目表2} SET 科目编码 ='" & bm & "' ,科目名称='" & s2 & "'"
cmd1.ExecuteNonQuery
Dim s3s As List(Of String) = dt0.GetValues("三级科目", "三级科目 is not null")
For Each s3 As String In s3s
bm3 = bm3 + 1
Dim bm32 As String = Format(bm3, "000")'
bm = i + 1 & bm22 & bm32
cmd1.CommandText = "U PDATE {科目表2} SET 科目编码 ='" & bm & "' ,科目名称='" & s3 & "'"
cmd1.ExecuteNonQuery
……