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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 需要开发协同办公程序

共有3006人关注过本帖树形打印复制链接主题：需要开发协同办公程序

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 8:37:00 [显示全部帖子]

以下是引用cglsg5076在2017/4/27 23:43:00的发言：
请问老师，如何将23：59变成00：00，代码如何写。谢谢！

在哪个地方修改，请具体你的问题。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 8:37:00 [显示全部帖子]

以下是引用cglsg5076在2017/4/28 8:28:00的发言：

请问老师，我用下面的代码为什么不能得到ComboBox1所选择的值，怎么改代码？谢谢

selectednodename=Forms("窗口1").Controls("ComboBox1").valuemember

直接写 selectednodename=Forms("窗口1").Controls("ComboBox1").Text

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 9:21:00 [显示全部帖子]

Dim td As Date
Dim td2 As Date
td=#23:59#
td2=td.addminutes(1)
msgbox(format(td2, "HH:mm"))

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 9:33:00 [显示全部帖子]

以下是引用cglsg5076在2017/4/28 9:28:00的发言：
我得到的结果是：0001-01-02，我需要td2等于00:00，不是格式。所以您看如何改？谢谢

带日期不影响你正常使用

Dim td As Date
Dim td2 As Date
td=#23:59#
td2=td.addminutes(1)
td2 = format(td2, "HH:mm")
msgbox(td2)

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/30 8:09:00 [显示全部帖子]

以下是引用cglsg5076在2017/4/30 6:02:00的发言：
老师好，请问如何自动向固定的网址发送注册信息，代码如何写。谢谢！

哪个网址？发送什么格式的信息？用何种方式？

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

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/2 9:42:00 [显示全部帖子]

以下是引用cglsg5076在2017/4/30 8:40:00的发言：

老师好，有时候需要不使用日历的值，必须做下面的判断将DateTimePicker1的值赋给wholedate，请问如何改红色部分，谢谢。

你要换一种思路，比如双击过月历控件，就认为选中了日期

你在月历事件记录 vars("点击") = true，之后判断这个变量即可

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

主题：需要开发协同办公程序