Foxtable(狐表)用户栏目专家坐堂 → 语法解法


  共有3369人关注过本帖树形打印复制链接

主题:语法解法

帅哥哟,离线,有人找我吗?
wtfwsk05
  71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/9/17 17:18:00 [只看该作者]

not Value.Contains("-")    请问下这条代码是什么意思

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/17 17:35:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/9/17 20:11:00 [只看该作者]

  发帖心情 Post By:2018/9/17 17:18:00 [只看该作者

not Value.Contains("-")    请问下这条代码是什么意思


我想了解的是not value的用法或概念什么的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/17 20:32:00 [只看该作者]

Value的值不包含"-"

 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/9/18 0:01:00 [只看该作者]

 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)"

请问下老师,上述代码中 sql = sql & " Values ('@$10','@$11','@$12','@$13','@$14','@$15','@$16',@$17,@$18,@$19,@$20)"  语句是什么意思



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/18 9:36:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/9/18 10:37:00 [只看该作者]

 ('@$10','@$11','@$12','@$13','@$14','@$15','@$16',@$17,@$18,@$19,@$20)  这个怎么理解

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/18 11:09:00 [只看该作者]

以下是引用wtfwsk05在2018/9/18 10:37:00的发言:
 ('@$10','@$11','@$12','@$13','@$14','@$15','@$16',@$17,@$18,@$19,@$20)  这个怎么理解

 

就是插入具体的值啊。完整代码贴出来看一下。下面肯定有替换@$10为别的值的代码。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
wtfwsk05
  79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:282 积分:1760 威望:0 精华:0 注册:2017/3/19 15:30:00
  发帖心情 Post By:2018/9/18 11:20:00 [只看该作者]

保存按钮的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
        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()

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/18 11:24:00 [只看该作者]

1、用特殊的标记占位

 

2、把占位的特殊标记,替换成了对应的值 sql = sql.Replace("@$" & i+10,.Controls(k).Value)


 回到顶部