主题：如何计算周别

Dim d As Date = Date.now
msgbox(d)
Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar()
Dim weekOfYear As Integer = gc.GetWeekOfYear(d,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
msgbox(weekOfYear)

2、

 

Dim d As Date = Date.now
msgbox(d)
If d.Minute >= 30 Then
    d = new Date(d.year, d.Month, d.day, d.hour, 30,0)
Else
    d = new Date(d.year, d.Month, d.day, d.hour, 0, 0)
End If
msgbox(d)

For Each dr As DataRow In DataTables("表名").DataRows
    Dim  d As Date = dr("日期列名")
    If d = Nothing Then
        dr("周别") = Nothing
    Else
        Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
        dr("周别") = n
    End If
Next

 

For Each dr As DataRow In DataTables("表名").DataRows
    Dim  d As Date = dr("日期列名")
    If d = Nothing Then
        dr("周别") = Nothing
    Else
        Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
        dr("周别") = n
       
        If d.Minute >= 30 Then
            d = new Date(d.year, d.Month, d.day, d.hour, 30,0)
        Else
            d = new Date(d.year, d.Month, d.day, d.hour, 0, 0)
        End If
        dr("进入系统时间") = d
    End If
Next

没看懂你什么意思，上传具体foxtable例子，说明要的效果。

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

点击浏览该文件:美味管理系统.table

1、

 

If e.DataCol.name = "通话时长" Then
    If e.DataRow.IsNull("通话时长") Then
        e.DataRow("通话时长秒") = Nothing
    Else
        Dim d As Date = e.NewValue
        e.DataRow("通话时长秒") = 3600*d.Hour + 60*d.Minute + d.Second
    End If
End If

 

2、

 

方法一：设置关联，引用父表数据

 

http://www.foxtable.com/help/topics/0091.htm

 

http://www.foxtable.com/help/topics/0106.htm

 

方法二：http://www.foxtable.com/help/topics/1453.htm

 

 

不要写到 prepareEdit事件，写到dataColChanged事件去。