Dim cmd As New SQLCommand
cmd.C
Dim HasError As Boolean
Dim dr As DataRow
dr = DataTables("tbl_品牌表").sqlFind("品牌名称 = '" & e.Form.Controls("TextBox1").text & "'")
If dr IsNot Nothing Then
e.Form.Controls("TextBox1").Error = "品牌名称已经存在!"
Else If HasError = False Then '如果没有输入错误,则保存
Dim kz As String = "ComboBox1,TextBox1,TextBox2,"
Dim sql As String = "Insert Into [tbl_品牌表] (品牌类型,品牌名称,备注) "
sql = sql & " Values ('@$10','@$11','@$12')"
Dim i As Integer
For Each k As String In kz.split(",")
sql = sql.Replace("@$" & i+10,e.Form.Controls(k).Value)
i += 1
Next
cmd.CommandText = sql
cmd.ExecuteNonQuery()
MessageBox.show("保存成功")
Forms("品牌单").close()
End If
加好友 
发短信
Post By：2018/8/23 21:12:00 [只看该作者]
