以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126329)
--  作者：liumiao123
--  发布时间：2018/10/18 17:01:00
--  [求助]数据记录
我想弄个数据统计··
为啥数据和记录不一样呢·
代码如下
 e.Form.Controls("Label6").text="总共收录BOM数据:" & Tables("BOM数据库").DataTable.Compute("Count(图号)") & "条"

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

·
图片点击可在新窗口打开查看此主题相关图片如下：001.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/10/18 17:58:00
--  

代码请写到timertick事件去

 

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

 
--  作者：liumiao123
--  发布时间：2018/10/19 7:27:00
--  回复：（有点甜）代码请写到timertick事件去 ...
那我的上面图片显示怎么和实际数量不一样呢
--  作者：有点甜
--  发布时间：2018/10/19 8:27:00
--  
以下是引用liumiao123在2018/10/19 7:27:00的发言：
那我的上面图片显示怎么和实际数量不一样呢

 

1、你代码写写在什么事件？如果写在afterLoad事件，一打开窗口就不对？

 

2、改成下面，写到timetick事件

 

e.Form.Controls("Label6").text="总共收录BOM数据:" & e.form.controls("Table1").table.rows.count & "条"

 

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

 
--  作者：liumiao123
--  发布时间：2018/10/19 9:25:00
--  回复：（有点甜）以下是引用liumiao123在2018/10/19 7...

请问老师，我如果要实现在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
---------------------
--  作者：有点甜
--  发布时间：2018/10/19 9:27:00
--  

两个日期相减？看看这里

 

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

 
--  作者：liumiao123
--  发布时间：2018/10/19 9:37:00
--  回复：（有点甜）两个日期相减？看看这里 ht...
那怎么把结果显示在Label上面呢
--  作者：有点蓝
--  发布时间：2018/10/19 9:45:00
--  
e.Form.Controls("Label6").text=(T1-T2).TotalDays
--  作者：liumiao123
--  发布时间：2018/10/19 17:11:00
--  回复：（有点蓝）e.Form.Controls("Label6").text=(T1...
请问·老师下·发布项目后左上角出现个“文件”怎么去掉
RT---

图片点击可在新窗口打开查看此主题相关图片如下：0001.jpg
图片点击可在新窗口打开查看
--  作者：liumiao123
--  发布时间：2018/10/19 17:36:00
--  回复：（有点蓝）e.Form.Controls("Label6").text=(T1...
请问老师··我如何实现·删除按钮的时候触发·密码·正确的时候可以执行删除·
下面代码·哪里出错呢·不执行

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编辑过]