此主题相关图片如下:9999.png
已经完成 谢谢大家
Dim str As String = ""
If e.Form.controls("CheckBox1").checked Then
str &="金币:" & Tables("表C").current("金币")& vbcrlf
End If
If e.Form.controls("CheckBox2").checked Then
str &="经验值:" & Tables("表C").current("经验值") & vbcrlf
End If
If e.Form.controls("CheckBox3").checked Then
str &="职业:" & Tables("表C").current("职业") & vbcrlf
End If
If e.Form.controls("CheckBox4").checked Then
str &="等级:" & Tables("表C").current("等级") & vbcrlf
End If
e.Form.controls("TextBox5").Text = str
[此贴子已经被作者于2015/9/19 11:55:09编辑过]