增加"只录时长"判断 ,当勾选时,锁定开始和结束时间,并解锁时长(mi),不勾选则反之

勾选时

代码中有所修改
在CHANGE事件中增加
            
            
              vbnet
              
              
            
          
          ''''''''''''''''''''''''''''''''''''''
''判断是否只录"时长"。如果勾选,则锁定起始时间和完工时间,并解锁时长(mi)
Set oField = oFields("FCheckBox1")
sValue = oField.Value
If sValue = True Then
 .BillEntrys(1).BOSFields(19).FieldLock = True
 .BillEntrys(1).BOSFields(20).FieldLock = True
 .BillEntrys(1).BOSFields(22).FieldLock = False
 GoTo out
Else
 .BillEntrys(1).BOSFields(19).FieldLock = False
 .BillEntrys(1).BOSFields(20).FieldLock = False
 .BillEntrys(1).BOSFields(22).FieldLock = True
 
 
 If .BillEntrys(1).BOSFields(19).Value = "" Or IsNull(.BillEntrys(1).BOSFields(19).Value) Then
    .BillEntrys(1).BOSFields(19).Value = "00:00:00"
 End If
 If .BillEntrys(1).BOSFields(20).Value = "" Or IsNull(.BillEntrys(1).BOSFields(20).Value) Then
    .BillEntrys(1).BOSFields(20).Value = "00:00:00"
 End If
 If Row = -1 Then Row = 1
 ''''''''''''''''''''''''''''''''''