Foxtable(狐表)用户栏目专家坐堂 → ID自增,弄到开发版ID不出来。


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

主题:ID自增,弄到开发版ID不出来。

帅哥哟,离线,有人找我吗?
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/5 10:32:00 [只看该作者]

那就改列名,控件名呀,既然平时都是抄代码的,不也都这样改吗。

Dim Filter2 As String = ""
Dim lc As Boolean
Select Case Forms("日历").Controls("日程状态").Text ‘确定还是使用"事务类型"的内容做判断?
    Case "已完成"
        lc = True ‘这个列到底是逻辑列还是整数列?上面定义的是整数,这里赋值逻辑值?
    Case "未完成"
        lc = False
End Select
Filter2 = "终止 = " & lc & " And " & filter1

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  22楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3085 积分:20611 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/2/5 11:04:00 [只看该作者]

老师,还是不对,报错,麻烦再看看 


以下内容是专门发给有点蓝浏览


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/5 11:31:00 [只看该作者]


Dim Filter2 As String = ""

Dim lc As integer = -1
Select Case Forms("日历").Controls("日程状态").Text ‘确定还是使用"事务类型"的内容做判断?
    Case "已完成"
        lc = 1 ‘这个列到底是逻辑列还是整数列?上面定义的是整数,这里赋值逻辑值?
    Case "未完成"
        lc = 0
End Select
Filter2 = IIF(lc = -1,filter1,"终止 = " & lc & " And " & filter1)

另外没有必要load二次

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  24楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3085 积分:20611 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/2/7 12:50:00 [只看该作者]

老师,全局代码逻辑很多没看懂,调整后现在是这样,和日历还是有点不一样,应该在哪儿调整呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:555.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/2/7 14:14:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/7 14:26:00 [只看该作者]

既然看不懂就不要乱改。

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  26楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3085 积分:20611 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/2/7 14:31:00 [只看该作者]

没改前有这种显示问题,现在改了也存在这样问题,要不就是前面几天显示到上一页,想给他改来和正常日历显示是一样的

 


图片点击可在新窗口打开查看此主题相关图片如下:666.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107014 积分:544295 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/7 15:43:00 [只看该作者]

Private Sub 表格计算()
_月首 = CDate(Format(_date, "yyyy-MM-01"))                         '获取当月的第一天日期
Dim i_月首星期 As Integer = _月首.DayOfWeek                             '获取当月第一天是星期几
If i_月首星期 = 0 Then i_月首星期 = 7 '如果1号是周日,计算时使用7,而不是0
If 周 <> -10000  Then
    _表首 = _月首.AddDays(-i_月首星期 + 1+ 周 * 7)
Else
    _表首 = _月首.AddDays(-i_月首星期 + 1)                                  '获取表格第一天的日期,加一是因为从星期一开始
End If
Dim i_天数 As Integer = DateTime.DaysInMonth(_date.Year, _date.Month)   '获取当月的天数
If  周历开个 =  0 Then
    _日期行数 = Math.Ceiling((i_天数 + i_月首星期 - 1) / 7)
Else
    _日期行数 = 1 '减一是因为从星期一开始
End If

'_表尾 = _表首.AddDays(_日期行数 * 7)
_表尾 = _表首.AddDays((_日期行数 * 7)-1)  '2020.02.04修改
_表格行数 = _日期行数 * 2 + 2                                           '表格的行数
Me.Rows.Count = _表格行数
表格赋值()
End Sub

 回到顶部
总数 27 上一页 1 2 3