Foxtable(狐表) → 用户栏目 → 专家坐堂 → DrawCell


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

主题：DrawCell
帅哥哟，离线，有人找我吗？
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/22 14:52:00 [只看该作者]

人家都要求分成2个发送，那就分成2次发送呗

Dim Value As String = "foxtable|access/foxpro|excel/egrid"
Dim sps() As Char = {"|","/"}
Dim Names() As String  = Value.Split(sps)
For Each name As String In Names
  调用发送的代码发送
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：652 积分：7718 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/9/20 13:02:00 [只看该作者]

两个问题求大神解决
1.
Dim d As Date = e.Form.Controls("DateTimePicker1").text
Dim y As Integer = Format(d,"yyyy")   '取年
Dim m As Integer = Format(d,"MM")   '取月
Dim ym As String = Format(d,"yyyyMM")  '取年月
Dim ts As String = Date.DaysInMonth(y,m)  '取指定月份的天数

Dim n As Integer = 0
For Each dr As DataRow In DataTables("巡查统计_table1").DataRows
    If n < ts Then  '新增的行数
        Dim i As Integer = 0
        Dim r As Row = Tables("巡查统计_table1").AddNew()
        dr("巡查时间") = New Date(y, m, 1).AddDays(i)
        i = i + 1
        n = n + 1
    End If
Next
e.Form.Close

红色代码附值 ，将新增的行”巡查时间“列按日期自动填入

2.
另一代码也无效
'显示巡查数据
CLICK代码
Dim tb As Table = Tables("巡查统计_Table1")
Dim r As Row = tb.Current
For Each lm As DataCol In DataTables("巡查统计_table1").DataCols
    Dim Names As String() = lm
    For i As Integer = 0 To lm.Length -1
        Dim cmd As New SQLCommand        '后台查找
        cmd.C
        cmd.CommandText = "sele ct * from {SK_日常巡查} where 结束时间='" & r("巡查时间") & "'"
        Dim dt As DataTable = cmd.ExecuteReader()
        Dim dr As DataRow = dt.Find("水库名称 = '" & i & "'")    '名称等于列名
        If dr IsNot Nothing Then
            r(i) = 1        '当前列名下行内容填入1
        End If
    Next
Next

新增行自动输入日期，鼠标点击后从另一张表取值

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190920133651.png
图片点击可在新窗口打开查看
从下表取值

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190920133731.png
图片点击可在新窗口打开查看

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

[此贴子已经被作者于2019/9/20 13:45:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/20 15:03:00 [只看该作者]

Dim d As Date = e.Form.Controls("DateTimePicker1").value
dim ld as integer = Date.DaysInMonth(d.year,d.month)
for i as integer = 1 to ld
    Dim r As Row = Tables("巡查统计_table1").AddNew()
        dr("巡查时间") = New Date(d.year,d.month, i)
next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/20 15:07:00 [只看该作者]

Dim tb As Table = Tables("巡查统计_Table1")
Dim r As Row = tb.Current
Dim cmd As New SQLCommand        '后台查找
cmd.C
cmd.CommandText = "sele ct * from {SK_日常巡查} where 结束时间='" & r("巡查时间") & "'"
Dim dt As DataTable = cmd.ExecuteReader()
For Each lm As DataCol In DataTables("巡查统计_table1").DataCols
    If lm.name <> "巡查时间" Then
        r(lm.name) = IIF(dt.find("水库名称='" & lm.name & "'") Is Nothing ,nothing,1)
    End If
Next
 回到顶部
总数 24 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询