主题：ID自增，弄到开发版ID不出来。

老师，请指导一下，新增行，会临时增加一个ID，保存时，保存在maxID，这个在哪儿实现的呢？我找了所有代码都没找到！

这个示例是论坛里面的，我弄到开发版ID就不出来了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的日历20170605（重庆李小胖添加周历版）.rar

SQlserver数据库在哪儿设置为自动编号，唯一呢？

 

此主题相关图片如下：4444.png

老师，还有个问题，我弄到开发版里面，切换到周历时会报错，报错后，在切换回日历，也会报这个错，代码完全搬过来的，在商业版就没问题。

周历开个 =  1
周 = 0

Dim MyDate1 As Date = _my日历.日期
e.Form.Controls("L_当前年月").text = MyDate1.Year & "年" & MyDate1.Month & "月"
_my日历.日期 = MyDate1
_my日历.刷新

此主题相关图片如下：qq图片20200204134622.png

那些需要改啊？

请老师看看，谢谢！

 

老师，找到问题了，修改后没报错，但是论坛里面有个修改的地方后面没用到啊？

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=101669

 

 
此主题相关图片如下：55555555.png

老师，我增加了一个搜索功能，问题：

1、事务类型，储存是数据是：1、2、3，实际应该是：会议、商务、私人，我筛选的时候选择：会议、商务、私人怎么转换成1、2、3搜索呢？？

2、重置后，日历控件没刷新，所有数据都没有了

 

请老师看看，怎么弄？

---

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

---

还麻烦老师一下，我还增加一个查询的，日程状态：：控件名称时：日程状态，字段名称是“终止” 来判断，true时是“已完成”，flase时是“未完成”

 

这样两个都不执行了呢

 

Dim Filter1 As String = ""
Dim lx As Integer
Select Case Forms("日历").Controls("事务类型").Text
    Case "会议"
        lx = 1
    Case "商务"
        lx = 2
    Case "私人"
        lx = 3
End Select
Filter1 = IIF(lx = 0,filter,"事务类型 = " & lx & " And " & filter)

'
Dim Filter2 As String = ""
Dim lc As Integer
Select Case Forms("日历").Controls("事务类型").Text
    Case "已完成"
        lc = True
    Case "未完成"
        lc = False
End Select
Filter2 = IIF(lc = 0,filter,"事务类型 = " & lc & " And " & filter1)
'
事务主表_dt.LoadFilter = Filter2
事务主表_dt.LoadTop = "5000"    '表示可以查看5000条事务
事务主表_dt.LoadOrder = n事务时间
事务主表_dt.Load()
End Sub

平时直接搬来用的多，还请老师拼接到一起一下，谢谢老师