主题：[求助]一个简单的问题

希望能选择时间列，如8:00    时段列自动填充为上午。    选择时间列，如16:00    时段列自动填充为  ：下午。

小白求助。

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

点击浏览该文件:管理项目2.table

If e.DataCol.Name = "时间" Then
    If e.DataRow.IsNull("时间") Then
        e.DataRow("时段") = Nothing
    Else
        Dim d As Date
        If Date.TryParse(e.NewValue, d) Then
            e.DataRow("时段") = iif(d.Hour>11, "下午", "上午")
        Else
            e.DataRow("时段") = Nothing
        End If
    End If
End If

非常谢谢。已解决。

如果

选择时间列，如8:00    时段列自动填充为：一班。   

选择时间列，如13:00    时段列自动填充为  ：二班。

选择时间列，如16:00    时段列自动填充为  ：三班。

这又怎么实现呢？谢谢

 

If e.DataCol.Name = "时间" Then
    If e.DataRow.IsNull("时间") Then
        e.DataRow("时段") = Nothing
    Else
        Dim d As Date
        If Date.TryParse(e.NewValue, d) Then
            Select Case d.Hour
                Case 8
                    e.DataRow("时段") = "一班"
                Case 13
                    e.DataRow("时段") = "二班"
                Case 16
                    e.DataRow("时段") = "三班"
                Case Else
                    e.DataRow("时段") = iif(d.Hour>11, "下午", "上午")
            End Select
        Else
            e.DataRow("时段") = Nothing
        End If
    End If
End If

谢谢！谢谢

 

我想问一下 foxtable有没有考虑使用其他语言来作为编程语言，比如Python，或者提供Python的API。

 

没有。目前就是vb.net，以后有可能考虑C#