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

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

共有20394人关注过本帖树形打印复制链接主题：语法解法

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/12 22:55:00 [显示全部帖子]

以下是引用wtfwsk05在2018/9/12 22:48:00的发言：

图片点击可在新窗口打开查看

此主题相关图片如下：主要.png

请问下在设计主菜单栏中的CurrentTableChanged选择不同表后执行设置下述代码有什么作用

Vars("SysUpdatePrintInfo") = True

只是做一个标记，在别的事件那里，会用到变量【SysUpdatePrintInfo】。

有点甜

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/12 23:30:00 [显示全部帖子]

以下是引用wtfwsk05在2018/9/12 23:24:00的发言：

MouseEnter 鼠标进入组件区域时执行

mouse_event(&H2 Or &H4,0,0,0,0)

请问下这个代码是什么意思，有什么作用，又怎么用

模拟点击鼠标的意思

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=74557&skin=0

有点甜

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/13 14:30:00 [显示全部帖子]

随便写一个名字都可以的，如

cmd.Parameters.Add("123abc", Date.Today)

有点甜

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/16 12:18:00 [显示全部帖子]

你需要这个？

Dim dt As DataTable = e.DataTable '定义指定数据表为dt
Dim i As Integer = dt.Compute("max(编号)") '定义编号的最大值为i
e.DataRow("编号") = i+1                     '触发行的指定字段的值为i+1

有点甜

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/16 13:42:00 [显示全部帖子]

afterOpenProject事件，写代码

For Each dt As DataTable In DataTables

If dt.DataCols.Contains("编号") Then

dt.GlobalHandler.DataRowAdded = True

End If

有点甜

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/17 15:14:00 [显示全部帖子]

参考

http://www.w3school.com.cn/sql/sql_wildcards.asp

有点甜

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/17 17:35:00 [显示全部帖子]

1、

http://www.foxtable.com/webhelp/scr/1422.htm

2、

http://www.foxtable.com/webhelp/scr/0220.htm

有点甜

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/9/18 9:36:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/0691.htm

有点甜

小大 29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：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为别的值的代码。

有点甜

小大 30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：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)

下一主题 >> << 上一主题

总数 102 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..11

主题：语法解法