Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据记录


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

主题：[求助]数据记录
帅哥哟，离线，有人找我吗？
liumiao123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		[求助]数据记录  发帖心情 Post By：2018/10/18 17:01:00 [显示全部帖子]

我想弄个数据统计··
为啥数据和记录不一样呢·
代码如下
 e.Form.Controls("Label6").text="总共收录BOM数据:" & Tables("BOM数据库").DataTable.Compute("Count(图号)") & "条"

· 还有请问老师·如何去除相同的数据·只记录不一样的行

·
图片点击可在新窗口打开查看此主题相关图片如下：001.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）代码请写到timertick事件去 ...  发帖心情 Post By：2018/10/19 7:27:00 [显示全部帖子]

那我的上面图片显示怎么和实际数量不一样呢

 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）以下是引用liumiao123在2018/10/19 7...  发帖心情 Post By：2018/10/19 9:25:00 [显示全部帖子]


请问老师，我如果要实现在Label控件 现实 指定日期-今天日期 怎么实现·呢
这下面的哪里错了呢
Dim T1 As Date = "2018-12-31"
Dim T2 As Date = Date.now
Dim abl As WinForm.Label
abl = e.Form.Controls("ts")
abl.Text = T1-T2
---------------------
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点甜）两个日期相减？看看这里 ht...  发帖心情 Post By：2018/10/19 9:37:00 [显示全部帖子]

那怎么把结果显示在Label上面呢

 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点蓝）e.Form.Controls("Label6").text=(T1...  发帖心情 Post By：2018/10/19 17:11:00 [显示全部帖子]

请问·老师下·发布项目后左上角出现个“文件”怎么去掉
RT---

图片点击可在新窗口打开查看此主题相关图片如下：0001.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
liumiao123
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2511 威望：0 精华：0 注册：2018/3/15 7:39:00 		回复：（有点蓝）e.Form.Controls("Label6").text=(T1...  发帖心情 Post By：2018/10/19 17:36:00 [显示全部帖子]

请问老师··我如何实现·删除按钮的时候触发·密码·正确的时候可以执行删除·
下面代码·哪里出错呢·不执行

Dim psd As String
InputValue(psd,"验证","请输入密码") '输入密码
If psd = "521" Then '如果密码正确
Syscmd.Row.Delete()    
Else
    Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim r As Row = Tables("BOM数据库").Current
    Dim msg As String = "D#" & "BOM数据库" & "#" & r("_Identify")
    r.Delete()
    Tables("BOM数据库").Save()
    For Each bd As QQBuddy In QQClient.Buddies
        If bd.Online Then
            QQClient.Send(bd.name, msg)
        End If
    Next
 
如何修改呢

[此贴子已经被作者于2018/10/19 17:38:10编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询