主题：已发布项目日期不能输入

是顺序出错了吗？还是代码本身存在问题？请教

If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False

Dim dt As Date = e.DataRow("日期")
If dt.Day < 26 Then
    dt = dt.AddMonths(-1)
End If
Dim dt1 As Date = New Date(dt.Year,dt.Month ,26)
Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If

你上例子吧.

是不是第二个IF后面少了Then，这样写代码可以吗？

Dim dt As Date = e.DataRow("日期")
If dt.Day < 26 Then
    dt = dt.AddMonths(-1)
End If
Dim dt1 As Date = New Date(dt.Year,dt.Month,26)
Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False Then
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If

此主题相关图片如下：123.jpg

在新项目中试验，有没有Then，日期都可以正常输入呀

在MainTableChanged中设置

Dim count As Short
Dim dr As DataRow

With DataTables("原料入库")
    dr = .DataRows(.DataRows.count-1)
    .DataCols("日期").RaiseDataColChanged(dr)
End With

与当前表的

Dim dt As Date = e.DataRow("日期")
If dt.Day < 26 Then
    dt = dt.AddMonths(-1)
End If
Dim dt1 As Date = New Date(dt.Year,dt.Month,26)
Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False Then
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If
是不是冲突了，请教

判断应该在前面的，不去理解，别人帮你写再多代码，也是没有用的。

 

 

If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False Then
        Dim dt As Date = e.DataRow("日期")
        If dt.Day < 26 Then
            dt = dt.AddMonths(-1)
        End If
        Dim dt1 As Date = New Date(dt.Year,dt.Month,26)
        Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("原料入库").Filter = Filter
    End If
End If