VB编码翻译~~~求助

显示全部楼层 · 2011-6-24 01:03:13

IfCheck4.Value=1Then
searchName=Check4.Caption
s=InStr(UCase(MyRecord.class),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
Case\"出勤情况\"
IfCheck5.Value=0AndCheck6.Value=0AndCheck7.Value=0AndCheck8.Value=0AndCheck9.Value=0Then
MsgBox\"请至少选择一个出勤情况!\",vbOKOnlyvbCritical,\"Error\"
Close#1
ExitSub
EndIf
IfCheck5.Value=1Then
searchName=Check5.Caption
s=InStr(UCase(MyRecord.log),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck6.Value=1Then
searchName=Check6.Caption
s=InStr(UCase(MyRecord.log),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck7.Value=1Then
searchName=Check7.Caption
s=InStr(UCase(MyRecord.log),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck8.Value=1Then
searchName=Check8.Caption
s=InStr(UCase(MyRecord.log),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck9.Value=1Then
searchName=Check9.Caption
s=InStr(UCase(MyRecord.log),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
Case\"职称\"
IfCheck10.Value=0AndCheck11.Value=0AndCheck12.Value=0AndCheck13.Value=0AndCheck14.Value=0AndCheck15.Value=0AndCheck16.Value=0Then
MsgBox\"请至少选择一个职称!\",vbOKOnlyvbCritical,\"Error\"
Close#1
ExitSub
EndIf
IfCheck10.Value=1Then
searchName=Check10.Caption
s=InStr(UCase(MyRecord.position),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck11.Value=1Then
searchName=Check11.Caption
s=InStr(UCase(MyRecord.position),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck12.Value=1Then
searchName=Check12.Caption
s=InStr(UCase(MyRecord.position),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf

千问 · 2011-6-24 01:03:13

如果复选框4被选中，并且记录的同学（MyRecord.class）名字中包含
复选框4的标题，则窗体2的列表框1添加mystr变量的值。

Case\"出勤情况\"：如果Select语句的表达式结果是“出勤情况”，则：
如果复选框5到9一个没选，则显示：
\"请至少选择一个出勤情况!\"
关闭磁盘文件1。

然后复选框5到9的代码和4的道理一样。

Case\"职称\"：如果Select语句的表达式结果是“职称”，则：
如果复选框10到16一个没选，则显示：
\"请至少选择一个职称!\"
关闭磁盘文件1。

然后复选框5到12的代码和4的道理也一样。

PS:你怎么把代码拆开问啊？