- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]字符串拆分及赋值问题。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44164)
-- 发布时间：2013/12/24 15:48:00
-- [求助]字符串拆分及赋值问题。
已经求助了多次，还是无法解决。
思路：1. 根据“开始时间”、“截止时间”、“患者种类”及“统计项目”的选择，点击“添加或确定统计条件”赋值给多行文本框“textbox2”，可以多选。为了使用者更好的理解统计条件，每条统计条件间使用两个“vbcrlf”分开；“开始时间”、“截止时间”、“患者种类”及“统计项目”间用“；”分开；而每个条件及值之间用“：”隔开；（已经实现）
2. 将多行文本框“textbox2”中的内容按“vbcrlf”、“；”及“：”进行拆分，将每条统计条件分别赋值给“开始时间”、“截止时间”、“患者种类”及“统计项目”。（已经实现）
3. 对每条统计条件的“开始时间”、“截止时间”、“患者种类”及“统计项目”的值进行判断，生成sql，完成分组统计（这一步有问题，sql无内容）
4.每条统计条件进行的分组统计的结果进行合并，赋值给“统计图形”窗口中的“table1”（这一步的代码也有问题）。
5.根据table1中的数据进行图形显示（还在设计中）
帮我看看，我实在搞不懂了。谢谢各位大侠，特别是bin和lsy。
例子如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.table |
[此贴子已经被作者于2013-12-24 16:00:27编辑过]
-- 发布时间：2013/12/24 17:20:00
--
拆分后，如果其值为“无”，能不能这样赋值d1=""。这儿老是走不通。代码如下：
If s(j).contains("开始时间") Then
Dim ss() As String=s(j).Split(";")
For Each s1 As String In ss
If s1.split(":")(1)="无" Then
d1=""
Else If s1.split(":")(1)<>"无" Then
d1=s1.split(":")(1)
End If
Next
End If
问题呀问题！！
-- 发布时间：2013/12/24 17:25:00
--
赋值为空是可以的啊
-- 发布时间：2013/12/24 17:28:00
--
但是老是等不到我要的结果。如果是“无”，d1="",如果不是“无”，d1的值就是拆分后的字段，这里就是走不通。还有例子中得不到sql的字段。显示为空。就上面的那个例子。
-- 发布时间：2013/12/24 17:29:00
--
脑壳都搞大了。哎！
-- 发布时间：2013/12/24 17:33:00
--
你2楼的代码是正确的,你例子那一部分出现问题?
-- 发布时间：2013/12/24 17:35:00
--
3. 对每条统计条件的“开始时间”、“截止时间”、“患者种类”及“统计项目”的值进行判断，生成sql，完成分组统计（这一步有问题，sql无内容）
4.每条统计条件进行的分组统计的结果进行合并，赋值给“统计图形”窗口中的“table1”（这一步的代码也有问题）。
5.根据table1中的数据进行图形显示（还在设计中）
-- 发布时间：2013/12/24 17:53:00
--
根据2楼代码，如果datatimepaker1为空，即textbox2中的相对应的值为“无”，但显示的d1还是“无”，而不是“”。
-- 发布时间：2013/12/24 17:55:00
--
不应该啊,除非你包含了空格,这样的话你把= 改为Contains 吧
If s(j).contains("开始时间") Then
Dim ss() As String=s(j).Split(";")
For Each s1 As String In ss
If s1.Contains("无") Then
d1=""
Else If s1.split(":")(1)<>"无" Then
d1=s1.split(":")(1)
End If
Next
End If
-- 发布时间：2013/12/24 18:09:00
--
确实是这个问题，有空格。但得到的sql仍是空。