就差逻辑列的代码了,大哥帮我改成逻辑列的代码,灰常感谢!!!
Dim tj02 As String = e.Form.Controls("列一").Value
Dim tj03 As String = e.Form.Controls("列二").Value
Dim tj04 As String = e.Form.Controls("列三").Value
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {表A} ([列一], [列二],[列三]) Values ('"
cmd.CommandText = cmd.CommandText & tj02 & "','" & tj03 & "','" & tj04 & "')"
If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功
e.Form.Close()
End If
[此贴子已经被作者于2012-4-26 12:33:14编辑过]