语法解法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

保存按钮的click事件

Dim cmd As New SQLCommand 'SQL命令cmd

cmd.C '指定cmd的数据源

With e.form

If .Controls("TextBox2").Value Is Nothing Then '货品编码的值为空时

MsgBox("货品编码不能为空!",64,"提示") '弹出提示对话框

Else '货品编码的值不为空时

DataTables ("库存").Load() '加载"库存"表

'------------------把记录写入表------------------------------------

Dim kz As String = "TextBox2,TextBox3,ComboBox3,TextBox1,ComboBox2,ComboBox4,TextBox11,NumericComboBox1,NumericComboBox2,NumericComboBox3,NumericComboBox4"

'向"库存商品"表各字段插入行

Dim sql As String = "Insert Into [库存商品] (货品编码,货品类型,计量单位,货品名称,规格型号,生产厂商,备注,库存上限,库存下限,入库参考价,出库参考价) "

'插入行各字段的值

sql = sql & " Values ('@$10','@$11','@$12','@$13','@$14','@$15','@$16',@$17,@$18,@$19,@$20)"

Dim i As Integer '整数变量i

'kz数组中每一个元素都执行一次下述代码

For Each k As String In kz.split(",") 'k表示kz(按钮名称)数组中的每一个元素

If .Controls(k).Value Is Nothing And i > 6 Then '指定控件的值不为空且 i>6 时

'Replace 查找给定的子字符串,并用另一个子字符替换掉找到的子字符串.

'语法: Replace(OldValue, NewValue)

sql = sql.Replace("@$" & i+10,"0")

Else

sql = sql.Replace("@$" & i+10,.Controls(k).Value)

End If

i += 1

cmd.CommandText = sql

cmd.ExecuteNonQuery()

'-------判断是否重新添加记录,设置控件为空------

If .Controls("CheckBox1").Checked = False Then '指定控件没被选中时

.Close() '关闭当前窗口

Else '指定控件被选中时

For Each k As String In kz.split(",")

.Controls(k).Value = ""

'-----设置关联表为空表--------------------

Dim tb As Table = Tables("查询表.库存") '定义"库存"表为tb

'Focus 将输入焦点移到table中 Focused判断输入信息是否在指定的table中

tb.Focus '将输入焦点移到table中

For i = 0 To tb.count-1

tb.rows.Remove(0)

End If

End With

'-------------------更新库存商品--------------------------

Dim tr As WinForm.TreeView '目录树

tr = Forms("窗口1").Controls("TreeView1")

Dim Value As String = tr.SelectedNode.FullPath '选定树标题(选定节点的路径)

Dim value2 As String = mid(Value,5,20) '取树标题第二段

Select Case Value

Case "按仓库","按类型","智能提醒"

cmd.CommandText = "execute CKXP"

Case "智能提醒\库存上限预警"

cmd.CommandText = "execute CKXPC"

Case "智能提醒\库存下限预警"

cmd.CommandText = "execute CKXPD"

Case "查找"

cmd.CommandText = "execute CKXP"

Case Else

'当选定节点是1层,运行以下

Select Case mid(Value,2,1)

Case "仓"

cmd.CommandText = "execute CKXPB '" & Value2 & "'"

Case Else

cmd.CommandText = "execute CKXPA '%" & Value2 & "%'"

End Select

Dim dst1 As Table = Tables("窗口1_Table1")

dst1.DataSource = cmd.ExecuteReader()

For i As Integer =1 To dst1.count

Dim dr5 As Row = dst1.Rows(i-1)

dr5("序号") = "" & i

dst1.AutoSizeCols()

主题：语法解法