以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  使用SQL 插入数据 显示 " "为空的控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123823)

--  作者：aoc103 --  发布时间：2018/8/23 21:12:00 --  使用SQL 插入数据 显示 " "为空的控件 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

--  作者：有点蓝 --  发布时间：2018/8/23 21:23:00 --   Dim kz As String = "ComboBox1,TextBox1,TextBox2" 去掉最后一个逗号 1楼用法已经过时了，建议使用这种用法：http://www.foxtable.com/webhelp/scr/3266.htm