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
Next
cmd.CommandText = sql
cmd.ExecuteNonQuery()
'-------判断是否重新添加记录,设置控件为空------
If .Controls("CheckBox1").Checked = False Then '指定控件没被选中时
.Close() '关闭当前窗口
Else '指定控件被选中时
For Each k As String In kz.split(",")
.Controls(k).Value = ""
Next
'-----设置关联表为空表--------------------
Dim tb As Table = Tables("查询表.库存") '定义"库存"表为tb
'Focus 将输入焦点移到table中 Focused判断输入信息是否在指定的table中
tb.Focus '将输入焦点移到table中
For i = 0 To tb.count-1
tb.rows.Remove(0)
Next
End If
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
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
Next
dst1.AutoSizeCols()
加好友 
发短信
Post By：2018/9/18 11:20:00 [显示全部帖子]
此主题相关图片如下：控件.png