如截图：
此主题相关图片如下：360软件小助手截图20131218143417.jpg
通过按钮“添加或确定统计条件”的click事件赋值给：textbox2，让使用者明白具体的统计条件。其具体的代码是：
Dim sql As String
If e.form.controls("Cmb_tongji").value="" Then
MessageBox.Show("统计项目不能为空,请重新确认统计目录", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return
Else
If e.Form.Controls("Rdo_dengji").checked=False Then
sql ="登记时间: 否;"
Else
sql="登记时间:是;"
End If
If e.Form.controls("Rdo_ruyuan").checked=False Then
If sql > "" Then
sql=sql & "入院时间:否;"
End If
Else
If sql > "" Then
sql=sql & "入院时间:是;"
End If
End If
With e.Form.Controls("DateTimePicker1")
If .Value Is Nothing Then
If sql > "" Then
sql = sql & "开始时间: 无;"
End If
Else
If sql > "" Then
sql = sql & "开始时间: " & .value & ";"
End If
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value Is Nothing Then
If sql > "" Then
sql = sql & "截止时间: 无;"
End If
Else
If sql > "" Then
sql = sql & "截止时间: " & .value & ";"
End If
End If
End With
With e.Form.Controls("Cmb_kind")
If .Value Is Nothing Then
If sql > "" Then
sql = sql & "患者种类: 无;"
End If
Else
If sql > "" Then
sql = sql & "患者种类: " & .value & ";"
End If
End If
End With
With e.Form.Controls("Cmb_tongji")
If .Value IsNot Nothing Then
If sql > "" Then
sql = sql & "统计项目: " & .value & "."
End If
End If
End With
End If
If e.form.controls("TextBox2").text="" Then
e.form.controls("TextBox2").text=sql
Else
e.form.controls("TextBox2").text=e.form.controls("TextBox2").text & vbcrlf & vbcrlf & sql
End If
e.form.controls("DateTimePicker1") .Enabled= False
e.form.controls("DateTimePicker2").Enabled=False
e.Form.Controls("Cmb_tongji").Enabled=False
现在的问题是如何将textbox2中的字符串通过split 分离后，赋值给按钮“统计”的click事件，完成统计。有没有类似val（a,b,c）类的用法。谢谢！
[此贴子已经被作者于2013-12-18 18:35:55编辑过]
加好友 
发短信
Post By：2013/12/18 18:35:00 [只看该作者]
