[求助]字符串拆分及赋值问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

已经求助了多次，还是无法解决。

思路：1. 根据“开始时间”、“截止时间”、“患者种类”及“统计项目”的选择，点击“添加或确定统计条件”赋值给多行文本框“textbox2”，可以多选。为了使用者更好的理解统计条件，每条统计条件间使用两个“vbcrlf”分开；“开始时间”、“截止时间”、“患者种类”及“统计项目”间用“；”分开；而每个条件及值之间用“：”隔开；（已经实现）

2. 将多行文本框“textbox2”中的内容按“vbcrlf”、“；”及“：”进行拆分，将每条统计条件分别赋值给“开始时间”、“截止时间”、“患者种类”及“统计项目”。（已经实现）

3. 对每条统计条件的“开始时间”、“截止时间”、“患者种类”及“统计项目”的值进行判断，生成sql，完成分组统计（这一步有问题，sql无内容）

4.每条统计条件进行的分组统计的结果进行合并，赋值给“统计图形”窗口中的“table1”（这一步的代码也有问题）。

5.根据table1中的数据进行图形显示（还在设计中）

帮我看看，我实在搞不懂了。谢谢各位大侠，特别是bin和lsy。

例子如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目.table

[此贴子已经被作者于2013-12-24 16:00:27编辑过]

拆分后，如果其值为“无”，能不能这样赋值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

问题呀问题！！

但是老是等不到我要的结果。如果是“无”，d1="",如果不是“无”，d1的值就是拆分后的字段，这里就是走不通。还有例子中得不到sql的字段。显示为空。就上面的那个例子。

脑壳都搞大了。哎！

3. 对每条统计条件的“开始时间”、“截止时间”、“患者种类”及“统计项目”的值进行判断，生成sql，完成分组统计（这一步有问题，sql无内容）

4.每条统计条件进行的分组统计的结果进行合并，赋值给“统计图形”窗口中的“table1”（这一步的代码也有问题）。

5.根据table1中的数据进行图形显示（还在设计中）

根据2楼代码，如果datatimepaker1为空，即textbox2中的相对应的值为“无”，但显示的d1还是“无”，而不是“”。

确实是这个问题，有空格。但得到的sql仍是空。

sql搞定。后面的分组统计有问题。

谢谢各位。现在对我们新手来说，不是怎么把代码写得更优化，而是如何实现的问题。到一定层次了，再逐步来代码优化代码，提高运行效率。

后面还是分组统计，统计结果合并的问题。前面的问题都已经解决。

主题：[求助]字符串拆分及赋值问题。